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ABSTRACT 


This  report  presents  the  results  of  a  study  of  design 
considerations  for  hybrid  monitor  systems  for  distributed  micro¬ 
computer  networks.  The  objective  of  the  study  was  to  determine 
the  feasibility  of  such  monitor  systems  and  to  look  at  typical 
designs. 

A  detailed  survey  of  the  literature  was  carried  out  and  the 
characteristics  of  existing  monitor  systems  were  established. 

The  report  presents  a  conceptual  design  for  a  monitor  system 
for  distributed  microcomputer  networks  obtained  by  adapting  certain 
aspects  of  existing  systems  to  the  specialized  requirements  of 
microcomputer  networks.  Several  novel  features  are  incorporated 
into  the  design  to  minimize  overhead  and  enhance  useability. 

A  typical  implementation  of  the  conceptual  design  using 
state-of-the-art  hardware  is  given  and  its  operation  on  a  specific 
monitoring  task  is  considered  in  detail.  The  implementation  is 
appropriate  for  use  with  the  AIRMICS/GEORGIA  TECH  Experimental 
Network  and  its  use  for  this  purpose  is  recommended. 
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1.  INTRODUCTION 


This  report  presents  the  results  of  a  performance  monitor 
feasibility  study  performed  as  one  task  under  a  grant  entitled 
"The  Feasibility  of  Implementing  Multi-Command  Software  Functions 
on  a  Microcomputer  Network"  from  the  United  States  Army  Computer 
Systems  Command  Institute  for  Research  in  Management  Information 
and  Computer  Sciences. 

The  objective  of  the  study  was  to  investigate  the  feasibility 
of  using  combined  hardware/software  monitors  for  distributed 
microcomputer  networks. 

The  field  of  computers  in  general,  and  computer  networks  in 
particular,  is  undergoing  explosive  growth.  Extremely  rapid 
advances  in  hardware,  such  as  the  advent  of  the  microprocessor, 
have  made  possible  designs  for  distributed  computer  systems  which 
could  not  have  been  cost  effective  even  a  few  years  ago. 

To  keep  abreast  of  the  rapidly  changing  state-of-the-art,  AiR- 
MICS  is  concerned  with  the  potential  applicability  of  distributed 
database  microcomputer  networks  to  their  data  processing  and 
management  information  problems.  The  present  grant  provides  funds 
to  study  several  aspects  of  microcomputer  networks  to  assess  their 
applicability  to  these  problems. 

This  report  is  concerned  with  a  part  of  the  overall  study 
directed  toward  monitor  systems  for  distributed  microcomputer 
networks.  Monitor  requirements  for  distributed  microcomputer 
networks  are  developed  using  monitor  systems  for  existing  networks 
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as  a  guide.  Feasible  design  approaches  are  developed  to  satisfy 
the  requirements. 

Other  parts  of  the  study  have  indicated  that  packet  switching 
as  opposed  to  alternative  approaches  such  as  line  switching,  is 
the  most  cost  effective  switching  technique  to  use  with  the 
microcomputer  networks  for  the  AIRMICS  application.  Thus  when 
aspects  of  the  monitor  system  are  impacted  by  such  details,  a 
packet  switching  network  is  assumed. 

The  remainder  of  the  report  is  divided  into  seven  major  parts 
Section  2,  which  gives  a  detailed  survey  of  the  literature  on  the 
monitor  problem;  Section  3,  which  develops  an  overall  design  for 
a  hybrid  monitor  system  for  distributed  microcomputer  networks; 
Section  4,  which  is  a  study  of  a  specific  implementation  of  such 
a  monitor  system;  Section  5,  which  is  a  description  of  the  experi¬ 
mental  network;  Section  6,  which  details  Netwoik  Cobol;  and 
Section  7,  Conclusion. 
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2.  REVIEW  OF  THE  LITERATURE 


Section  8  of  the  report  contains  a  bibliography  of  selected 
papers  under  the  headings:  Hardware  Monitors  for  Stand-Alone 
Computers,  Software  Monitors  for  Stand-Alone  Computers,  Hardware/ 
Software  Monitors  for  Computer  Networks,  Parameters  to  be  Measured 
for  Monitoring,  Existing  Computer  Networks,  Analytic  and  Simulation 
Models  for  Computer  Networks,  Measurements  for  Determining  Param¬ 
eters  for  use  with  Network  Models,  and  Commercial  Monitor  Equipment. 

The  purpose  of  this  section  is  to  provide  a  concise  guide  to 
this  literature  in  several  areas  germane  to  the  major  thrust  to 
the  study. 

2.1  Existing  Computer  Networks 

Specialized  computer  networks  began  to  appear  in  the  middle 
and  late  1960's  and  since  the  early  1970's  have  been  implemented 
for  commercial  service.  As  could  be  expected,  there  is  a  consid¬ 
erable  body  of  literature  on  all  aspects  of  computer  networks. 

Computer  networks  can  be  classified  in  a  number  of  ways  using, 
for  example,  application,  type  of  hosts,  geometry  or  method  of 
switching.  The  method  of  switching  has  a  significant  effect  on 
certain  aspects  of  the  monitoring  problem  and  thus  this  classifi¬ 
cation  will  be  used  to  narrow  the  scope  of  the  present  survey. 

Major  types  of  switching  for  computer  networks  can  be  classi¬ 
fied  as  nonswitched  or  leased-circuit ,  circuit-switched,  packet- 
switched  and  multiple  access.  Halsey,  et.al.  (1979)  (Ref.  35)* 

♦Numbers  refer  to  Bibliography  in  Section  8. 
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surveys  the  public  data  networks  world-wide  in  the  first  three 
categories  and  enumerates  fifteen  networks  of  the  leased-circuit 
type  and  seventeen  of  the  packet-switched  type. 

Leased-circuit  and  circuit- switched  networks  were  the  first 
types  to  be  used  and  much  existing  theory  and  equipment  were 
developed  for  this  type  of  network.  As  noted  in  the  Introduction, 
however,  the  interest  in  this  study  is  in  packet-switched  networks 
which  are  a  more  recent  innovation.  Wood  (1975)  (Ref.  34)  surveys 
eight  packet-switching  networks  from  countries  around  the  world, 
including  the  ARPANET,  which  is  possibly  the  oldest  and  best 
documented  U.S.  packet  switching  network.  At  the  time  of  this 
survey,  the  hosts  in  the  networks  examined  were  large  computers. 

The  ARPANET,  in  particular,  is  well  monitored  and  the  equipment  is 
discussed  in  detail  in  the  literature.  See  Kleinrock  (1974)  (Ref. 
33). 

Minicomputers  are  a  recent  innovation  and  thus  the  number  of 
papers  describing  minicomputer  networks  would  be  expected  to  be 
relatively  limited.  Five  papers  describing  reasonably  general 
purpose  minicomputer  networks  were  found  in  the  literature.  Three 
of  these  papers,  Fraser  (1975)  (Ref.  31) ,  Aiso,  et  al.  (1975) 

(Ref.  29)  and  Kitazawa,  et  al.  (1978)  (Ref.  30),  describe  networks 
which  share  a  common  bus  controlled  by  a  switching  computer  (or 
computers).  Farber  (1975)  (Ref.  27)  describes  a  network  using 
what  he  terms  a  "communication  ring"  controlled  by  distributed 
ring  interfaces.  Unfortunately,  none  of  these  four  networks  are 
fel*'  to  be  an  optimum  choice  for  the  present  application  since  they 
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do  not  efficiently  handle  bursts  of  traffic  between  nodes  as  a 
packet  switched  network  would. 


Labetoulle  (1977)  (Ref.  2b)  describes  a  network  which  is 
possibly  the  best  suited  to  applications  of  the  type  of  interest 
in  the  present  study.  He  gives  attention  to  the  bursty  nature  of 
communications  between  nodes  and  considers  packet  switching  as  a 
possibility.  However,  from  considerations  of  the  hardware  costs 
at  the  time  of  his  study  (before  1977),  he  chooses  a  communication 
loop  based  on  the  Newhall-Parmer  protocol,  rather  than  using 
packet  switching.  Labetoulle  does  not  consider  the  monitoring 
problem. 

2.2  Hardware  Monitors  and  Software  Monitors  for  Stand-Alone 
^■omputefs 

Hardware  and  software  monitors  for  stand-alone  computers  have 
been  in  use  for  a  number  of  years  and  there  is  a  considerable 
amount  of  literature  on  the  subject.  The  book  by  Svobodova  (1976) 
(Ref.  24)  contains  a  section  on  hardware  and  software  monitors  and 
an  extensive  bibliography.  Typical  of  several  earlier  survey 
papers  with  references  is  the  one  by  Lucas  (1971)  (Ref.  10). 

To  a  large  extent,  hardware  and  software  monitors  are  comple¬ 
mentary  in  that  they  have  access  to  different  aspects  of  the  com¬ 
putation.  There  are  some  activities,  however,  such  as  CPU  activity, 
which  are  observable  by  both  hardware  and  software. 

A  software  monitor  is  a  special  program  incorporated  into  the 
software  of  the  system  under  test.  Through  use  of  commands,  such 
as  interrupts,  codes  can  be  written  to  monitor  many  parameters  of 


the  system. 

Hardware  monitors  are  typically  some  sort  of  "black  box" 
which  measures  certain  system  parameters  through  direct  wired-in 
connections.  A  complete  hardware  monitor  also  requires  control 
logic,  accumulators,  and  a  recording  unit. 

As  pointed  out  by  Svobodova  (Ref.  24),  a  software  monitor 
can  observe  hardware-related  events  only  if  they  are  accompanied 
by  a  control  transfer  to  an  instruction  at  a  known  logical  address 
or  if  they  store  other  identifying  information. 

On  the  other  hand,  a  hardware  monitor  can  sense  software- 
related  events  only  when  they  arc  accompanied  by  a  control  transfer 
to  a  fixed  absolute  address.  This  is  possible  because  hardware 
monitors  can  normally  monitor  the  state  of  any  memory  element. 

Hardware  monitors  require  no  system  overhead  while  software 
monitors  can  be  costly  in  the  use  of  resources. 

A  hardware  monitor  is  well  suited  to  the  task  of  counting  or 
timing  the  duration  of  events  or  combinations  of  events,  where  the 
term  event  is  used  to  denote  any  occurrence  of  significance  to  a 
unit  of  work  processed  by  the  system.  Cockrum  and  Crockett  (Ref. 

1)  present  a  good  study  of  the  use  of  hardware  monitors  for  event 
monitoring.  They  list  events  which  can  be  monitored  by  single 
sensors  under  four  headings:  fourteen  events  for  the  Central  Proc¬ 
essor  Unit,  seven  events  for  the  Direct  Access  Storage  Device,  four 
events  for  the  Control  Units  and  four  events  for  Unit  Record  equip¬ 
ment.  They  also  list  five  types  of  events  which  require  multiple 
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sensors  and  comparators  and  provide  examples  of  how  to  determine 
the  combined  events. 

One  source  of  data  that  can  be  accessed  by  a  hardware  monitor 
is  the  memory  bus.  Fryer  (Ref.  8)  discusses  in  some  detail  what 
can  be  found  on  the  memory  bus  and  also  gives  details  of  the  re¬ 
quired  monitors.  He  points  out  that  the  memory  bus  has  three 
types  of  information,  namely:  1)  address  lines  which  specify 
which  memory  location  is  to  be  accessed,  2)  data  lines  carrying 
the  data  read  or  to  be  written,  and  3)  control  information  which 
includes  a  read/write  line  and  sometimes  a  split  cycle  line  for 
read-modify-write  operations.  Fryer  states  that  measuring  the 
actual  execution  time  of  a  section  of  code  is  easily  accomplished 
with  a  bus  monitor. 

Typical  general  software  monitor  tools  which  have  been  imple¬ 
mented  are  the  following: 

metering  packages  for  time  spent  in  executing  selectable 
supervisor  modules  while  the  system  is  running  other  tasks 

packages  for  obtaining  the  distribution  of  segment 
utilizations 

packages  for  counting  the  number  of  times  specified 
procedures  are  called 

general  event  tracing  packages. 

Some  software  monitor  systems  have  been  tailored  to  give  data 
for  use  with  specific  analytic  models.  A  software  monitor  for  use 
with  a  queueing  theory  multiprogramming  model  of  an  IBM  360/65 
under  OS/MFT  using  the  HASP  Execution  Task  Monitor  is  described  by 
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Wong  and  Strauss,  (Ref.  14).  This  monitor  system  is  composed  of 
two  programs.  The  collection  program  which  collects  the  required 
data  and  dumps  the  information  on  magnetic  tape  and  the  analysis 
program  which  processes  the  data  collected.  The  collection  pro¬ 
gram  periodically  samples  the  OS/360  system  tables  and  control 
blocks  by  disabling  all  I/O  interrupts,  collecting  the  required 
data,  and  then  enabling  the  interrupts  again.  The  data  of  interest 
is  CPU  activity,  the  priority  mapping  of  certain  tasks,  I/O  queue¬ 
ing  activity  and  I/O  activity  of  the  devices  on  the  selector 
channels . 

2.3  Hardware/Software  Monitors  and  Monitors  for  Computer  Networks 

The  general  design  characteristics  of  a  hybrid,  or  hardware/ 
software  monitor,  for  a  stand-alone  computer  are  discussed  by 
Svobodova  (Ref.  24).  A  specific  design  for  an  elaborate  hybrid 
monitor  for  computer  networks  is  discussed  in  detail  by  Morgan  and 
his  coworkers  (Refs.  16,  17).  The  design  of  a  monitor  system  for 
a  specific  computer  network  is  illustrated  by  the  monitor  system 
for  the  ARPA  network  (Ref.  18). 

Hybrid  monitor  systems  attempt  to  exploit  the  desirable 
features  of  both  hardware  and  software  monitors.  Svobodova  de¬ 
scribes  a  two  level  hybrid  monitor  structure.  One  level  consists 
of  software  for  detecting  software-related  events,  for  controlling 
which  events  are  monitored  and  for  generating  signals  detectable 
by  an  external  hardware  monitor.  Another  level  consists  of  an 
external  hardware  monitor  which  combines  signals  from  the  software 
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monitor  with  hardware  probe  signals  and  processes  and  outputs  the 
results.  The  interface  between  the  software  monitor  and  the 
external  hardware  monitor  is  provided  by  an  M-register  (which  is  a 
set  of  hardware  latches)  set  and  reset  by  the  software  to  providing 
external  connections  for  the  hardware  monitor. 

Morgan  and  his  coworkers  developed  the  design  of  a  system  of 
hardware  and  software  devices  for  monitoring  the  behavior  of  a 
computer  network.  The  monitor  system  is  distributed  so  that  each 
node  in  the  computer  network  is  provided  with  a  "remote  controlled 
hybrid  monitor"  and  a  "regional  network  measurement  center". 
Communication  lines  couple  all  of  the  regional  network  measurement 
centers  to  one  "network  monitor  control". 

The  remote  controlled  hybrid  monitor  is  a  general  device 
containing  event  detectors  and  time  measuring  modules  as  well  as 
data  processing  and  storage  equipment  and  communication  modules. 

The  event  detector  can  detect  the  following: 

1.  events  defined  in  terms  of  data  or  address  ranges 

2.  events  defined  in  terms  of  Boolean  functions  of  other 
events 

3.  events  defined  as  a  sequence  of  other  events 

4.  characters  in  bit-serial  lines. 

The  time  measuring  modules  contain  four  types  of  devices: 

1.  time  stamp  units 

2.  event  times 

3.  interval  times 

4.  a  network  clock  synchronized  with  a  standard  reference 
clock. 
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Although  the  general  devices  could  be  adopted  to  do  so, 
specific  attention  is  not  given  to  measuring  features  of  a  packet 
switched  network,  such  as  message  delay  and  traffic. 

The  monitor  system  for  the  ARPA  network  typifies  a  system 
whose  major  function  is  to  monitor  the  performance  of  a  packet 
switched  computer  network  by  measuring  input  traffic,  line  traffic 
and  message  delays.  The  monitor  is  limited  to  determining  the 
behavior  of  the  communication  subnetwork  which  provides  the  mes¬ 
sage  service  to  the  user-host  system.  The  monitor  functions  are 
implemented  in  software  at  the  switching  computers  (IMPS)  located 
at  each  node  in  the  network.  All  of  the  monitor  equipment  is 
under  program  control  and,  upon  request,  data  can  be  collected  at 
specific  nodes  and  summarized  in  special  measurement  messages 
which  are  sent  to  a  specific  collection  Host. 

Six  measurement  tools  are  implemented  for  the  ARPA  system. 

A  Trace  tool  allows  messages  to  be  "traced"  as  they  pass  through 
a  sequence  of  IMPS.  A  trace  block  is  generated  for  each  marked 
packet.  The  trace  block  contains  time  stamps  which  occur  when: 

(a)  the  last  bit  of  the  packet  arrives,  (b)  the  packet  is  put  on 
a  queue,  (c)  the  packet  starts  transmission  and  (d)  the  acknowl¬ 
edgement  is  received. 

Another  measurement  tool  is  the  Accumulated  Statistics  mes¬ 
sage  which  consists  of  several  tables  of  data  summarizing  activity 
at  a  network  node  over  an  interval  of  time.  These  statistics 
include:  (a)  message  size  statistics  such  as  histograms  of  packet 

lengths  in  words  for  large  packets,  (b)  a  global  traffic  matrix 


containing  such  data  as  the  number  of  round-trips  sent  from  a 
probed  site  to  each  site,  and  (c)  channel  statistics  for  channels 
connected  to  a  probed  site. 

A  Snapshot  tool  gives  an  instantaneous  look  at  the  operation 
of  an  IMP.  Snapshot  data  includes:  several  queue  lengths,  the 
IMP'S  routing  table,  lost  queue  lengths,  and  data  about  storage 
allocations . 

An  Artificial  Message  Generation  tool  is  a  package  built  into 
each  IMP  giving  it  the  ability  to  generate  artificial  messages. 

The  two  remaining  tools  are  Status  Reports  and  Control,  Collection 
and  Analysis. 

2.4  Parameters  Measured  by  Monitoring  Systems 

In  principle,  it  should  be  possible  to  identify  a  minimal  set 
of  states,  or  parameters,  which  will  completely  describe  a  computer 
system  or  computer  network.  Identification  of  such  a  set  of  pa¬ 
rameters,  however,  has  not  been  found  in  the  literature  and  appar¬ 
ently  is  beyond  the  state  of  the  art  at  the  present  time. 

Although  a  minimum  set  of  parameters  to  be  monitored  is  not 
identified,  several  authors,  including  Svobodova  (Ref.  24),  Cox 
(Ref.  20)  and  Morgan  (Ref.  16)  identify  general  sets  of  parameters 
and  the  authors  of  the  papers  referenced  in  Sections  2.2  and  2.3 
all  identify  the  variables  measured  by  their  monitoring  tools.  A 
compilation  of  the  variables  from  these  sources  has  been  made.  A 
similar  compilation  made  by  Sutton  and  Morgan  (Ref.  46)  contains 
essentially  all  of  these  variables  and  it  is  given  with  minor 
additions  in  Table  1. 
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The  parameters  have  been  classified  under  the  three  general 
headings  of  Computer  Network  Parameters,  Workload  Parameters  and 
Miscellaneous  Items.  The  first  category  refers  to  those  variables 
internal  to  any  part  of  the  computer  network.  This  category  is 
further  subdivided  into  Utilization  of  Resources,  Throughput,  and 
Response . 

Workload  Parameters  are  parameters  associated  with  the  exter¬ 
nal  load  on  the  network,  while  the  Miscellaneous  category  includes 
those  parameters  which  do  not  fit  into  the  first  two  categories. 


TABLE  1.  PARAMETERS  MEASURED  BY  MONITORING  SYSTEMS 


jutton 


Morgan  with  minor 


utions) 


1.  COMPUTER  NETWORK  PARAMETERS 
Utilization  of  Resources 

a.  Frequency  of 

• 

Specific  software  activity.  This  includes  system 
software,  utilities,  and  a  part  or  whole  of  the 
operating  systems  of  nodes  or  hosts. 

• 

Processor  activity 

Line  or  Link  activity 

Channel  or  controller  activity 

Auxiliary  or  main  storage  device  activity 

Data  set  activity 

Data  set  structure  activity 

Processor  states 

Instruction  execution. 

b.  Quantity  of  auxiliary  or  main  storage  space  requested  or 
used . 
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c. 


Quantity  of  data  moved  to  or  from  specific  devices. 


Throughput 

a.  Time  required  to  transmit/handle  a  message /packet  through 
a  network  node  or  other  specific  resource. 

b.  Number  of  messages,  packets  or  jobs  nandled  by  a  node, 
network  or  host. 

c.  Number  of  bits  transmitted  or  received  by  a  link,  line 
node,  network  or  host. 

d.  Raw  speed  of  a  resource. 

e.  Time  between  dispatch  of  packets,  messages  or  jobs. 

Response 

a.  Time  to  set-up  or  disconnect  a  logical  or  physical  path 
through  a  network  or  node. 

b.  Time  required  to  respond  to  a  call  for  service. 


2.  WORKLOAD  PARAMfcTERS . 

a.  User  response  time  (or  think  time). 

b.  Time  between  arrivals  of  packets,  messages  or  jobs. 

c.  Frequency  and  types  of  requests  for  service. 

d.  Reference  pattern  of  software. 

e.  Size  of  packet,  message  or  job  in  characters,  lines  or 
cards . 

f.  Real  time  on  the  system. 

g.  Quantities  and  types  of  storage  requested  and  used. 


3.  MISCELLANEOUS  I  TIMS . 

a.  Time  for  the  object  system  to  detect,  correct  or  recover 
from  trouble  with  data  transmission;  lines,  nodes,  hosts 
or  specific  devices  out  of  service;  software  errors,  and 
link  problems. 
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b.  Time  for  the  object  system  to  detect  saturation  of  lines 
links,  nodes,  hosts  or  other  devices. 

c.  Number  of  packets,  messages  or  jobs  within  the  system 
and  the  number  of  jobs  active. 

d.  Size  of  queue. 

2.5  Commercial  Monitoring  hquipment 

In  the  course  of  the  literature  survey  the  characteristics  of 
general  purpose  commercial  monitoring  equipment  were  examined. 

This  task  was  facilitated  by  two  survey  papers,  one  by  Stiefel 
(1979)  (Ref.  52)  concerned  with  network  diagnostic  tools  and 
another  by  Hart,  et.al.  (1971)  (Ref.  51)  concerned  with  monitoring 
host-controlled  resources. 

The  paper  by  Stiefel  summarizes  the  properties  of  thirty- 
eight  different  pieces  of  test  equipment  ranging  in  price  from 
twenty-nine  dollars  to  seventeen  thousand  dollars.  This  array  of 
equipment  tests  such  things  as  modem  performance,  polling,  response 
time,  and  link  quality.  There  are  units  to  carry  out  software 
debugging,  fault  testing  and  related  tasks.  Other  units  provide 
an  RS-232  status  monitor  and  measurements  to  test  computer  terminals. 

Most  of  the  test  instruments,  however,  are  tailored  for  leased- 
line  or  circuit  switched  networks.  None  of  the  applications  list¬ 
ed  indicates  measurement  of  packet-switched  network  parameters  such 
as  packet  delay,  queue  length,  etc.  Thus,  one  must  conclude  that, 
although  some  specific  measurement  techniques  could  be  applicable, 
none  of  the  instruments  described  could  serve,  directly,  the  desired 
network  monitoring  function. 


The  instruments  described  by  Mart  for  measuring  host-control¬ 
led  resources  also  cover  a  variety  of  costs  and  complexities.  One 
or  another  of  the  instruments  would  seem  to  provide  all  of  the 
types  of  measurements  desired  for  host-controlled  resources.  The 
problem  with  these  instruments,  however,  is  that  of  interfacing 
and  adapting  a  general  purpose  instrument  to  specific  tasks.  In 
almost  all  cases,  the  general  purpose  instruments  are  tailored  for 
use  with  large  scale,  multiprocessing  computers,  whereas  the  present 
application  is  concerned  with  microcomputers  which  perform  essen¬ 
tially  one  task  at  a  time. 
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3.  OVERALL  DESIGN  CONSIDERATIONS  FOR  HYBRID  MONITORS 


3,1  General  Requirements  for  a  Monitor  System 

Section  Two  contained  a  summary  of  the  parameters  measured  by 
existing  monitor  systems  and  the  monitoring  tools  used  by  certain 
large  scale  computer  networks.  In  the  light  of  this  information, 
the  problem  of  conceptual  design  of  monitoring  equipment  for  dis¬ 
tributed  microcomputer  networks  would  seem  to  be  one  of  adaption 
to  specialized  properties  and  needs.  This  section  of  the  report 
presents  general  design  considerations  for  a  monitoring  system 
specifically  tailored  to  a  distributed  microcomputer  network  using 
packet  switching.  The  network  is  assumed  to  contain  a  relatively 
small,  but  arbitrary,  number  of  nodes  distributed  in  space,  as 
indicated  in  Figure  3.1.  The  switching  computers,  which  are  small 
scale  versions  of  the  ARPA  IMPS,  are  located  at  each  node  and  con¬ 
trol  the  flow  of  packets  into  and  out  of  the  nodes  over  the  con¬ 
necting  communication  links. 

From  a  consideration  of  their  characteristics,  several  dis¬ 
tinctive  properties  of  microcomputer  networks  can  be  identified. 
These  properties  translate  into  the  following  specific  requirements 
for  a  distributed  microcomputer  monitoring  system. 

1)  The  host  microcomputers  at  each  node  perform  essentially 
one  operation  at  a  time  under  control  of  the  CPU.  Thus, 
monitor  equipment  at  each  node  can  be  designed  to  monitor  only 
one  operation  at  a  time.  Such  monitor  equipment  can  be 
simpler  than  that  required  to  function  in  a  multiprocessing 
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2)  Queueing  tlieory  models  may  be  useful  for  describing  micro 
computer  networks  and  data  appropriate  to  such  models  should 
be  obtained. 

3)  In  applications  of  microprocessor  networks,  it  is  desira¬ 
ble  to  monitor  total  resource  utilization  for  each  job  and 
for  each  task  of  which  the  job  is  comprised. 

4)  Microprocessor  equipment  is  evolving  at  a  rapid  rate. 
Hybrid  monitor  systems  should,  therefore,  be  designed  to  take 
advantage  of  what  is  currently  feasible,  such  as  having  a 
microprocessor  as  a  part  of  the  monitor  equipment  at  each 
node  when  this  can  be  useful. 

In  addition  to  the  specialized  properties  listed  above,  mon¬ 
itor  systems  for  distributed  microcomputer  networks  have  the  fol¬ 
lowing  properties  in  common  with  other  such  systems: 

5)  The  monitor  system  should  be  controlled  from  a  central 
location, 

6)  The  monitor  system  should  require  a  minimal  overhead,  and 

7)  Results  from  monitor  measurements  should  be  presented  in 
a  form  which  is  as  useful  as  possible  to  the  ultimate  user  of 
the  network. 

Of  course,  specific  implementations  of  monitor  equipment  must 
be  tailored  to  particular  hardware  and  software  for  each  computer 
network. 

3.2  Specific  Variables  to  be  Monitored 

A  consideration  of  the  variables  measured  by  monitor  systems 
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reported  in  the  literature  and  of  the  specialized  requirements  for 
distributed  microcomputer  networks  leads  to  the  following  choices 
for  variables  to  be  monitored.  The  variables  are  listed  on  two 
levels  -  the  variables  employed  by  the  end  user  of  the  network,  and 
the  more  basic  measured  variables  from  which  these  are  derived. 

The  variables  desired  by  the  user  of  the  computer  network  are 
those  required  to  characterize  job  performance  -  typically  total 
resource  utilization  and  total  computing  t ime  on  a  per  task  or  per 
job  basis.  For  an  experimental  network,  it  is  also  desirable  to 
measure  a  set  of  variables  which  will  characterize  the  behavior  of 
the  network  in  transmitting  data  between  the  host  computers. 

The  basic  measured  variables  for  resource  utilization  involve 
the  total  time  devoted  to  each  task  or  job  by  all  of  the  host  mi¬ 
crocomputers,  the  host  peripherals  and  the  components  of  the  net¬ 
work.  This  translates  into  a  measurement  of  the  total  time  devoted 
to  each  task  by  the  following: 

At  each  node 
host  cpu 
host  disk 
line  printers 
terminals 
For  the  network 
all  links 
all  node  cpu’s 

The  total  computing  time  is  measured  directly  from  sign-on  to  sign- 
off  at  the  appropriate  terminal. 
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To  characterize  the  network,  it  is  necessary  to  determine  the 
behavior  of  packets  in  moving  from  node  to  node  and  waiting  in 
queues  to  be  transmitted.  The  appropriate  variables  are  random 
with  time  and  thus  the  basic  measured  data  is  used  to  construct 
histograms  or  averaged  to  determine  such  statistics  as  the  mean  or 
variance.  The  set  of  variables  listed  below  has  been  chosen  to 
describe  the  network  functions: 
at  each  node 

packets  awaiting  service 
packets  arriving  per  unit  time 

number  of  packets  transmitted  per  unit  time  over  each 
link 

number  of  transmitted  packets  not  acknowledged. 
for  the  whole  network 
packet  delay  over  each  path 

number  of  packets  in  the  network  at  a  particular  time. 

In  addition  to  the  variables  noted  above,  additional  measure¬ 
ments,  such  as  time  spent  in  executing  portions  of  the  software 
package,  may  be  req  ired.  Some  provision  for  this  type  of  measure¬ 
ment  will  be  made  in  the  proposed  monitor  system. 

3.3  A  Proposed  Monitor  System 

A  consideration  of  the  general  requirements  listed  in  Section 

3.1  and  the  specific  variables  to  be  monitored  as  listed  in  Section 

3.2  has  led  to  the  design  of  a  general  monitor  structure  and  a 
philosophy  to  accomplish  the  required  task.  The  design  centers  on 
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five  specific  types  of  problems;  namely,  a  general  approach  to  the 
measurement  tasks,  nature  and  physical  location  of  monitor  compo¬ 
nents,  communication  between  the  parts  of  the  monitor  system,  con¬ 
trol  of  the  monitor  system,  and  identifying  and  accounting  for 
specific  jobs. 

3.3.1  Nature  and  Physical  Location  of  Monitor  Components:  The 
proposed  monitor  system  has  a  Monitor  Control  (MC)  location  at  one 
designated  node  and  Monitor  Stations  (MS)  at  each  of  the  other 
nodes  of  the  network.  Each  nodal  monitor  station  contains  a  micro¬ 
processor,  memory,  a  serial  port  connecting  to  the  node  switching 
computer  and  a  collection  of  sensors  interfacing  with  the  host 
computer  at  that  node  to  measure  the  use  of  the  resources  control¬ 
led  by  the  host.  The  equipment  at  a  typical  node  is  shown  in 
Figure  3.2. 

Each  nodal  monitor  station  will  also  share  a  two-port  memory* 
with  the  switching  computer  to  facilitate  monitoring  the  network 
resources.  Appropriate  data  concerning  the  operation  of  the  net¬ 
work  can  he  stored  in  this  two-port  memory  by  the  switching  com¬ 
puter  and  accessed  by  the  monitor  system.  By  choosing  the  read- 
write  rate  for  the  two-port  memory  to  be  twice  the  system  clock 
rate,  the  monitor  will  require  effectively  no  overhead  in  this 
operation. 

Each  nodal  monitor  station  will  collect  all  necessary  data 
for  its  node  from  the  host  and  its  peripherals  and  also  from  the 
switching  computer.  In  cases  where  it  is  appropriate  to  do  so, 

*The  idea  for  this  type  of  sensor  was  originated  by  Drs.  Barnwell 
and  Schlag. 
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FIGURE  3.2  A  TYPICAL  NODE  IN  A  COMPUTER  NETWORK  WITH  ASSOCIATED 
MONITORING  EQUIPMENT 


preliminary  data  processing  can  take  place  at  the  node.  For 
example,  the  mean  value  of  a  set  of  data  can  be  determined.  At 
periodic  intervals,  data  from  the  nodal  monitors  will  be  transmit¬ 
ted  to  the  Monitor  Control  Location. 

3.3.2  General  Approach  to  the  Measurement  Tasks:  The  measurement 
tasks  will  be  treated  in  two  parts,  those  associated  with  micro¬ 
processor  host  controlled  resources  and  those  associated  with  net¬ 
work  resources. 

The  host-controlled  resource  activities  at  each  node  will  be 
monitored  directly  and  assigned  to  the  job  on  which  they  are  used. 
This  is  not  a  difficult  task  since  a  microcomputer  CPU  can  control 
only  one  task  at  a  time,  and  hence  the  resource  activities  control¬ 
led  by  such  CPU's  do  not  overlap. 

The  network  functions  are  controlled  by  the  CPU's  of  the 
switching  computers,  and  therefore,  network  activity  can  overlap 
activity  of  the  host  controlled  resources.  Allocating  the  use  of 
every  resource  of  the  network  directly  to  the  specific  job  on 
which  it  is  used  would  be  a  difficult  task.  Therefore,  it  is 
planned  to  monitor  every  network  resource  but  to  allocate  the  cost 
to  jobs  on  an  average  basis  by  measuring  the  number  of  packets 
used  per  job,  the  particular  node-pair  links  traversed  by  the 
packets  and  the  total  traffic  load  at  the  time  of  transmission. 

A  calibration  of  the  network  will  be  made  to  give  the  average  cost, 
in  terms  of  resource  utilization,  of  transmitting  packets  over  each 
node-pair  link  as  a  function  of  total  traffic  load  over  that  link. 
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It  is  felt  that  this  approach  will  minimize  implementation  diffi¬ 
culties  while  providing  adequate  accuracy. 

3.3.3  Communication  Between  the  Parts  of  the  Monitor  System:  As 
noted  above,  the  monitor  stations  are  distributed  throughout  the 
network  to  facilitate  collecting  data  at  each  node.  This  distri¬ 
bution  of  the  monitor  components,  while  desirable,  necessitates 
transmitting  data  to  the  MC  location  by  some  means. 

One  method  for  data  transmission  which  would  not  require  over¬ 
head  is  that  of  constructing  a  monitor  communication  network  to 
match  that  of  the  original  computer  network.  This  alternative  was 
discarded  as  too  costly  in  equipment. 

The  approach  which  was  chosen  is  that  of  transmitting  monitor 
data  through  the  network  in  the  same  manner  as  data  is  exchanged 
by  the  host  computers  -  by  packets.  This  choice  requires  overhead 
since  the  monitor  packets  compete  with  the  data  packets  for  use  of 
the  network.  The  exact  amount  of  overhead  required,  however, 
depends  on  the  frequency  of  sending  monitor  packets  and  it  is  felt 
that  this  frequency  can  be  kept  low.  A  desirable  aspect  of  the 
use  of  monitor  packets  is  the  fact  that  these  packets  can  also  be 
used  to  collect  data  on  packet  delay,  transit  times  and  other 
aspects  of  the  operation  of  the  network. 

A  scheme  for  generating  monitor  packets,  called  pickup  packets, 
could  have  the  packets  originate  either  at  the  MC  location  or  at 
the  individual  nodes.  Generation  at  the  MC  location  has  tentatively 


been  chosen  as  the  best  alternative. 


The  pickup  packets  will  contain  a  data  field  and  addresses 
structured  in  the  same  manner  as  other  packets.  The  MC  will  dis¬ 
patch  the  pickup  packets  at  regular  intervals,  routing  them  so 
that  at  least  one  packet  will  traverse  each  link  in  the  network 
before  they  all  return  to  the  MC.  The  routing  details  depend  on 
the  structure  of  the  network  as  well  as  the  specific  routing 
strategies . 

As  each  pickup  packet  arrives  at  a  node,  a  real  time  measure¬ 
ment  will  be  made  and  the  time  of  arrival  will  be  entered  into  an 
appropriate  location  in  the  data  field  of  the  pickup  packet.  A 
similar  measurement  will  be  made  when  the  packet  leaves  the  node. 
This  data  will  be  coded  as  to  the  pickup  packet  to  which  it  applies, 
stored  and  then  transmitted  in  the  data  field  of  the  next  pickup 
packet.  The  timing  data  collected  by  the  pickup  packets  will 
ultimately  be  processed  by  the  host  at  the  MC  to  determine  average 
packet  delay  and  related  parameters. 

Whenever  a  pickup  packet  arrives  at  a  node,  all  monitor  data 
awaiting  transmission  to  the  MC  will  be  placed,  appropriately  coded, 
into  its  data  field.  After  traversing  its  portion  of  the  network, 
the  pickup  packet  will  return  to  the  MC  and  deliver  the  monitor 
data  acquired  in  route.  Thus  the  pickup  packet  will  serve  the  dual 
role  of  transmitting  data  from  the  monitor  stations  to  the  monitor 
control  and  probing  the  network  to  determine  packet  delay  and 
related  parameters. 

3,3,4  Control  of  the  Monitor  System:  Control  of  the  monitor  system 
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will  reside  at  the  MC  location.  Pinal  data  processing  and  monito 
data  printout  will  take  place  at  the  MC  and  programs  to  control 
the  monitor  equipment  at  the  various  nodes  can  also  originate  and 
be  distributed  to  the  monitor  stations  through  the  MC. 

Each  nodal  monitor  station  will  contain  an  EPROM  memory  which 
will  contain  subroutines  appropriate  to  controlling  the  monitoring 
equipment  for  any  given  task  or  job.  These  instructions  will  apply 
to  all  sensors,  including  the  dual-port  memory  at  that  node. 

In  setting  up  a  particular  experiment,  desired  measurements 
will  be  specified  as  inputs  to  the  MC.  The  MC  host  computer  will 
then  determine  what  measurements  must  be  carried  out  at  each  node 
to  obtain  the  desired  data  and  will  prepare  appropriate  programs 
for  transmission  to  RAM  memory  at  each  node.  The  required  program 
will  be  transmitted  from  the  MC  via  a  preliminary  set  of  pickup 
packets . 

With  a  small  number  of  nodes  in  a  central  location,  the  RAMs 
at  each  node  could,  alternately,  be  programmed  through  a  terminal 
at  the  node. 

In  addition  to  the  task  of  setting  up  each  experiment  to  be 
monitored,  the  MC  must  collect,  process  and  output  all  monitor 
data.  Instructions  for  doing  this  will  be  placed  in  EPROM  memory 
at  the  MC  location. 

Note  that  the  programs  placed  in  RAM  memory  to  control  partic¬ 
ular  experiments  will  consist  largely  of  calls  to  subroutines 
stored  in  EPRCM  memory.  Thus,  such  programs  will  be  short  and 
easy  to  prepare. 
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3.3.5  Identifying  and  Accounting  for  Specific  Jobs:  The  distri¬ 
buted  microcomputer  network  will  typically  be  processing  a  number 
of  jobs  concurrently.  One  requirement  of  the  monitor  system  is 
that  it  be  able  to  determine  the  cost, in  resources  used,  for  each 
job  independently. 

As  noted  above,  host  controlled  resource  use  w*ll  be  assigned 
directly  to  specific  jobs,  while  network  resource  use  will  be  as¬ 
signed  on  an  indirect  basis.  The  accounting  procedures  are  as 
follows . 

Requests  for  host-controlled  resources  at  each  node  are  as¬ 
signed  an  ID  number  associated  with  each  job.  This  number  is 
placed  in  a  memory  location  accessed  by  the  nodal  monitor  station, 
such  as  one  in  the  two-port  memory,  and  it  remains  there  as  long 
as  the  CPU  controls  a  resource  used  on  this  job.  The  ID  number 
is  changed  when  the  CPU  or  its  peripherals  perform  a  task  for 
another  job. 

The  monitor  routines  can  be  set  up  to  use  the  ID  number  in 
initiating  and  ending  measurements  and  in  determining  the  memory 
locations  for  storing  measured  results.  The  procedure  allows  the 
nodal  monitor  stations  at  different  nodes  to  monitor  the  activities 
associated  with  different  jobs. 

To  allocate  the  network  resources  to  various  jobs,  the  job  ID 
number  is  recorded  in  an  appropriate  location  on  each  packet  asso¬ 
ciated  with  carrying  out  the  job.  Monitor  equipment  is  designed 
to  count  the  number  of  packets  associated  with  each  job  and  to 
record  the  path  traversed  by  each  packet  and  the  average  traffic 
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load  on  the  path  at  the  time  of  transmission.  This  data 
with  a  calibration  of  packet  processing  costs,  can  be  us 
allocate  network  costs  to  specific  jobs. 
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4.  STUDY  OF  A  TYPICAL  IMPLEMENTATION  OF  A  HYBRID  MONITOR  SYSTEM 


The  objective  of  the  study  is  to  assess  the  general  problem 
of  hybrid  monitors  for  distributed  microcomputer  networks.  It  is 
felt,  however,  that  no  general  design  study  is  complete  without 
putting  design  concepts  to  the  test  of  at  least  one  possible  imple¬ 
mentation.  This  section  of  the  report  presents  an  implementation 
of  a  hybrid  monitor  system  and  an  assessment  of  it  in  monitoring 
a  typical  job  assigned  to  the  computer  network.  This  section  also 
contains  comments  on  a  monitor  structure  for  the  AIRMICS/GEORGIA 
TECH  Experimental  Network. 

4.1  An  Implementation  of  the  Monitor  System 

The  Nodal  Monitor  Station  shown  in  Figure  3.2  can  be  implement 
ed  with  one  of  several  appropriate  microprocessor  systems.  Figure 

4.1  shows  a  possible  implementation  with  components  from  the  Amer¬ 
ican  Microsystems  S6800  family. 

The  operation  of  the  Nodal  Monitor  Station  is  discussed  under 
three  headings:  General  Operation,  Specific  Measurement  Modules 
and  Representative  Specific  Measurements. 

4.1.1  General  Operation:  The  Nodal  Monitor  Station  receives  data 
in  three  ways:  by  reading  memory  locations  in  the  Dual-Port  RAM, 
through  the  Serial  Communication  Port  and  from  the  Data  Gathering 
system.  The  servicing  of  these  inputs  and  the  storing  of  data  into 
the  RAM  memory  is  carried  out  under  the  control  of  the  microproces¬ 
sor  . 
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The  EPROM  contains  the  basic  subroutines  which  control  all  of 


the  functions  of  the  Monitor  Station.  Details  of  what  data  is 
taken  and  in  what  sequence  measurements  are  made  need  to  be  flexi¬ 
ble  and  read  into  the  system  for  each  particular  experiment.  This 
is  accomplished  by  storing,  for  each  experiment,  a  program  in  the 
RAM  consisting  largely  of  calls  to  the  subroutines  stored  in  the 
EPROM.  Experiments  can  be  set  up  from  the  Monitor  Control  Location 
using  pickup  packets  sent  out  through  the  network  to  read  in  the 
programs.  Alternately,  the  RAM  can  be  loaded  locally  through  a 
terminal  associated  with  the  local  host. 

As  noted  in  Figure  4.1,  the  Nodal  Monitor  Station  has  a  Data 
Gathering  System  which  collects  data  from  probes  into  the  Micro¬ 
computer  host.  These  probes  provide  data  on  such  things  as  the 
status  of  devices  and  are  used  with  the  Timer,  the  Real  Time  Clock 
and  several  standard  Measurement  Modules  to  monitor  the  host- 
controlled  resources.  The  Measurement  Modules  are  discussed  below 
in  the  section  on  specific  modules. 

The  host-controlled  resource  measurements  are  carried  out  by 
a  program  executed  by  the  Monitor  Microprocessor  which  uses  specif¬ 
ic  software  from  RAM  storage  and  general  subroutines  from  the  EPRCM. 
The  program,  diagrammed  in  Figure  4.2,  runs  in  an  "infinite  loop". 
The  program  is  designed  to  be  interrupted  by  events  associated  with 
the  network,  namely: 

to  read  data  from  the  Two-Port  RAM 
at  regular  intervals,  and 

to  process  data  to  and  from  pickup  packets. 
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FIGURE  4.2  PROGRAM  FOR  CARRYING  OUT  HOST-CONTROLLED  RESOURCL 


MEASUREMENTS 


The  network  resources  are  monitored  though  data  stored  in 
appropriate  locations  in  the  Two-Port  RAM.  This  device  is  also 
discussed  in  the  section  on  specific  modules. 

Communication  between  the  Monitor  Control  and  the  Nodal  Mon¬ 
itor  Stations  will  take  place  using  pickup  packets.  The  EPROM 
will  have  a  basic  routine  which  enables  the  CPU  to  communicate  data 
through  the  Serial  Port.  Thus,  data  can  be  transferred  to  or  from 
pickup  packets  which  arc  in  buffers  at  the  node  corresponding  to 
the  nodal  monitor  station.  Arriving  pickup  packets  will  cause  an 
interrupt  in  the  monitor  microprocessor  program  to  ensure  prompt 
service  of  the  pickup  packets. 

4.1.2  Specific  Measurements  Modules:  The  measurements  of  the 
variables  required  to  monitor  a  distributed  microcomputer  network 
can  be  carried  out  using  several  basic  types  of  measurement  modules. 
These  modules  include  counters  for  time  and  events,  a  histogram 
generator,  a  masked-word  range  comparator  and  a  logic  combination 
device.  The  logical  structure  of  these  modules  will  be  given  in 
this  subsection.  Subsection  4.1.3  discusses  how  a  number  of  the 
basic  variables  are  measured  using  these  modules.  The  Two-Port  RAM 
and  a  Real-Time  Clock  will  be  included  as  modules  in  this  discus¬ 
sion. 

The  real  time  clock  and  counters  for  time  and  events  are  shown 
in  Figure  4.5.  One  Real  Time  Clock  is  required  at  each  monitor 
station  along  with  possibly  one  half  dozen  time  counters  and  a 
similar  number  of  event  counters. 
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The  Real  Time  Clocks  at  all  of  the  monitor  stations  must  be 


synchronized.  Given  this  basic  requirement,  the  clocks  can  be 
addressed  with  software  and  commanded  to  output  to  the  data  bus  a 
digital  number  giving  the  appropriate  time. 

Both  types  of  counters  can  be  addressed  from  the  monitor  bus. 
Once  put  in  the  proper  state  by  the  monitor  software,  they  respond 
to  status  signals  obtained  through  probes  from  the  host  microcom¬ 
puters.  I'or  example,  if  a  disk  status  signal  is  high  while  the 
disk  is  operating,  the  Time  Counter  will  turn  on  upon  receipt  of 
this  signal  and  continue  counting  until  the  signal  reverses  state, 
causing  the  counter  to  turn  off.  At  an  appropriate  time  after  the 
counter  is  turned  off,  a  signal  indicating  the  time  interval  is 
supplied  to  the  data  bus  upon  command  from  the  monitor  software. 
The  Event  Counter  works  in  a  similar  fashion,  counting  the  occur¬ 
rence  of  events  in  a  status  signal  rather  than  a  time  interval. 

Since  most  of  the  network  variables  are  random  in  nature,  it 
will  be  efficient  to  have  several  histogram  generators  at  each 
monitor  station  to  reduce  the  random  data  to  histogram  form  before 
transmission  to  the  Monitor  Control  Location. 

A  logic  diagram  of  a  histogram  generator  is  given  in  Figure 
4.4.  The  device  takes  any  data  signal  and  quantizes  it  into  a  set 
of  magnitude  ranges  for  excitation  of  appropriate  counters.  The 
counters,  eight  or  possibly  sixteen  in  number,  are  read  by  appro¬ 
priate  monitor  software.  The  Data  Valid  Signal,  which  must  be 
present  for  the  counters  to  function,  is  derived  from  the  source 
of  the  variable  whose  histogram  is  to  be  generated. 
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FIGURE  4.4  HISTOGRAM  GENERATOR 


A  masked-word  range  comparator  is  used  to  measure  the  time  the 
CPU  spends  executing  a  particular  software  region.  This  is  accom¬ 


plished  by  monitoring  the  occurrence  of  addresses  between  two 
specific  values. 

An  implementation  of  the  Masked-Word  Range  Comparator  is 
shown  in  Figure  4.5.  The  16-bit  latches  are  loaded  with  the  extreme 
values  of  the  address  range  to  be  monitored.  Addresses  from  the 
host  probe  are  compared  to  the  values  stored  in  the  latches  in  a 
comparator.  Address  values  in  the  appropriate  range  actuate  a 
counter  which  can  be  enabled  by  a  signal  from  another  source.  The 
device  can  be  set  up  and  controlled  completely  with  monitor  soft¬ 
ware. 

An  implementation  of  a  Logic  Combination  Unit  is  given  in 
Figure  4.6.  Its  operation  is  much  like  that  of  the  Masked-Word 
Range  Comparator.  For  this  unit,  the  eight-bit  latches  can  be 
loaded  with  appropriate  patterns  for  comparison  to,  say,  the  status 
word  of  some  device.  Using  the  Logic  Combination  Unit,  specific 
patterns  in  the  status  word  can  be  detected.  If  a  counter  is  con¬ 
nected  to  the  output,  the  time  the  device  spends  in  one  of  its 
states  can  thus  be  measured. 

The  Two-Port  RAM,  which  is  a  part  of  each  monitor  station,  is 
regarded  for  purposes  of  discussion  as  a  measurement  module.  This 
.RAM  permits  non- intrus ive  access  to  data  from  the  node  switching 
computer.  This  is  accomplished  by  using  a  RAM  with  a  read/write 
rate  of  twice  the  clock  rate  of  the  node  switching  computer  so 
that  data  can  be  read  into  the  RAM  by  the  switching  CPU  and  read 
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out  of  the  RAM  by  the  monitor  CPU  in  one  period  of  the  switching 
CPU  clock. 

The  Monitor  Microprocessor  and  the  Node  Microprocessor  will 
he  identical  devices.  Thus ,  all  network  data  which  must  be  moni¬ 
tored  can  be  stored  in  this  RAM  for  access  by  the  monitor  CPU. 

Job  ID  number,  pointers  or  other  data  on  packet  queues  and  packet 
arrival  times  are  typical  of  the  data  to  be  stored  in  the  Two-Port 
RAM. 

4.1.3  Representative  Specific  Measurements:  This  subsection 
indicates  in  general  terms  how  representative  variables  are  measured 
with  the  Measurement  Modules.  More  detail  on  some  measurements 
will  be  given  in  Section  4.2  in  the  discussion  of  the  monitor  oper¬ 
ation  for  a  particular  example. 

In  Section  3.2  specific  variables  to  be  monitored  were  classi¬ 
fied  as  pertaining  to  resource  utilization,  variables  describing 
the  network  operation  and  additional  variables.  Representative 
variables  from  each  of  these  categories  will  be  discussed  below. 

The  activity  of  host-controlled  resources  (disks,  line  printers, 
terminals,  etc.),  can  all  be  monitored  through  use  of  status  sig¬ 
nals  obtained  through  the  probes  connected  to  the  host  at  each  node. 

A  status  signal  is  used  as  input  to  an  Interval  Counter  such  as 
shown  in  Figure  4.3.  When  the  Interval  Counter  is  actuated  by  its 
control  signal,  it  will  detect  a  resource  active  signal  and  measure 
the  time  the  resource  is  in  the  active  state. 
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The  software  program  for  carrying  out  host-controlled  re¬ 
source  measurements  is  tailored  to  actuate  the  counter,  through 
an  appropriate  control  signal,  when  the  ID  number  of  a  particular 
job  is  stored  in  the  dual-port  RAM  by  the  host  microcomputer  con¬ 
trolling  the  resource  being  monitored.  When  the  ID  number  is 
changed,  indicating  another  job  is  being  serviced,  the  software 
program  causes  the  counter  to  read  out  the  measured  time  to  a 
storage  location  assigned  to  the  particular  job. 

The  activity  of  a  host  CPU  or  a  switching  computer  CPU  can 
be  measured  by  determining  when  the  CPU  is  executing  instructions 
located  in  memory  outside  the  wait  loop.  This  measurement  can  be 
made  using  the  Masked-Word  Range  Comparator  of  Figure  4.S,  which 
requires  the  appropriate  CPU  address  bus  as  an  input.  Use  time  of 
a  host  CPU  will  be  allocated  to  a  particular  job  in  the  same  man¬ 
ner  as  described  for  the  CPU  controlled  resources.  Use  time  of  a 
switching  computer  CPU  will  be  totalled  without  allocation  to 
specific  jobs. 

Most  of  the  measurements  involving  the  network  have  to  do  with 
measuring  the  parameters  of  the  flow  of  packets.  The  proposed 
monitoring  system  will  determine  the  average  parameters  of  packet 
flow  using  measurements  made  on  the  normal  data  packets  complement¬ 
ed  with  measurements  made  with  pickup  packets.  Both  types  of 
measurements  use  the  Two-Port  RAM. 

The  normal  data  packets  will  all  be  labeled  with  a  job  number. 
Whenever  a  packet  is  transmitted  from  a  node,  the  switching  CPU, 
which  controls  the  transmission,  will  store  a  count  in  the  Two-Port 
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RAM  in  a  storage  location  corresponding  to  the  link  over  which  the 
packet  was  transmitted.  Classification  as  to  job  as  well  as  to 
link  can  also  be  retained  if  desired. 

The  monitor  software  will  cause  the  Two-Port  RAM  storage 
location  to  be  sampled  at  regular  intervals  and  the  increase  in 
the  number  of  packets  stored  will  be  the  number  of  packets  trans¬ 
mitted  over  the  particular  link  in  the  interval  between  samples. 

Of  course  the  count  in  the  storage  location  must  be  set  to  zero  in 
initiating  an  experiment. 

A  similar  procedure,  storing  a  count  for  incoming  packets, 
can  give  a  measurement  of  the  number  of  arriving  packets  per  unit 
time  on  each  link.  Summation  of  either  type  of  count  over  all 
links  at  a  node  gives  the  number  of  packets  arriving  at  or  leaving 
the  node. 

Several  measurements,  such  as  packets  awaiting  service,  number 
of  packets  not  acknowledged,  and  the  number  of  packets  generated 
at  a  particular  node  can  be  made  by  storing  a  count  in  an  appropri¬ 
ate  location  in  the  Two-Port  RAM  following  specific  actions  con¬ 
trolled  by  the  switching  computer  CPU.  The  actions  which  can  ini¬ 
tiate  a  count  to  produce  the  above  measurements  are,  respectively: 
storing  an  incoming  packet  in  the  buffer  for  receiving  packets, 
retransmitting  a  packet,  and  transferring  a  packet  out  of  the  buffer 
in  which  it  is  generated.  As  with  the  other  measurements  noted,  the 
above  measurements  rely  on  access  of  the  Two-Port  RAM  storage 
locations  to  the  monitor  CPU. 


Pickup  packets  will  be  used  to  measure  packet  delay.  This 
measurement  will  be  implemented  by  giving  a  pickup  packet  a  special 
identification  number  which  is  read  into  a  location  in  the  Two-Port 
RAM  immediately  after  the  pickup  packet  is  received  or  transmitted 
at  a  node.  The  monitor  software  monitors  the  RAM  location  and 
produces  an  interrupt  when  a  pickup  packet  ID  is  received.  The 
Real  Time  Clock  is  read  following  the  interrupt  and  a  "time  stamp" 
is  recorded,  either  in  the  data  field  of  an  arriving  pickup  packet 
or  in  storage  for  insertion  in  the  field  of  the  next  pickup  packet 
if  the  packet  is  leaving  the  node. 

The  Monitor  Control  Location  ultimately  receives  all  of  the 
pickup  packets  and  can  extract  the  time  of  arrival  and  departure 
from  each  node  over  each  link.  This  data  is  adequate  to  determine 
the  profile  of  packet  delays. 

The  network  variables  measured  at  each  node  are  random,  and 
thus  it  may  prove  to  be  efficient  to  convert  most  of  these  into  a 
histogram  before  transmitting  the  data  to  the  Monitor  Control  loca¬ 
tion.  The  Histogram  Generator  shown  in  Figure  4.4  can  be  used  to 
generate  the  histogram  if  this  option  is  used. 

4.2  Example  Illustrating  the  Use  of  the  Monitor  System 

The  purpose  of  this  section  is  to  define  a  typical  task  for  the 
computer  network  and  discuss  in  detail  the  functioning  of  the  mon¬ 
itor  system  in  monitoring  the  network  as  it  performs  this  task.  An 
inventory  type  task  is  chosen,  and  for  such  an  application  it  is 
assumed  that  the  Monitor  Control  Location  is  also  the  site  of  a 
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large  data  base  containing  complete  inventory  data.  The  otJier 
nodes  in  the  network  have  smaller  data  bases  containing  local 
data. 

4.2.1  Task  Definition:  The  task  is  defined  by  the  following 
sequence  of  operations  wiiich  could  arise  in  a  distributed  computer 
controlled  inventory  system. 

a)  A  user  signs  on  at  a  terminal  located  at  Node  K  and  re¬ 
quests  the  restoration  of  a  portion  of  his  local  data  base 
which  has  been  lost  (say  the  Node  k  inventory  of  item  A). 

b)  The  Monitor  Control  Location  supplies  the  required  data 
from  its  large  data  base  over  the  network. 

c)  The  user  at  Node  K  requests  a  search  of  the  Node  K  inven¬ 
tory  of  item  A  for  an  item  A^ .  This  item  is  found  to  be 
absent  from  inventory. 

d)  The  user  requests  a  search  of  the  local  listing  of  the 
item  A  inventory  at  other  nodes  to  determine  the  number  of 
Aj  items  located  at  each  node. 

e)  The  user  at  Node  K  requests  that  his  needs  for  Aj  be  filled 
from  the  supply  at  the  node  having  the  largest  number  of  items 
A^.  (Assume  that  this  is  Node  L.)  The  request  is  granted. 

f)  Node  K  updates  its  inventory  of  items  A. 

g)  Node  K  instructs  the  Monitor  Control  to  update  its  inven¬ 
tory  listing  of  items  A. 

h)  The  Monitor  Control  instructs  all  other  nodes  to  update 
their  inventory  listings  of  items  A. 
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i)  User  signs  off. 


It  is  assumed  that  the  inventory  listing  of  items  A  is  sub¬ 
stantial  so  that  a  thousand  or  so  packets  of  several  hundred  bytes 
each  would  be  required  to  transmit  it  across  the  network.  It  is 
also  assumed  that  the  network  is  operating  with  a  background  of 
other  tasks  being  executed. 

4.2.2  Computer  Network  and  Corresponding  Monitor  System  Operation 
on  Assigned  Task:  To  illustrate  properly  the  operation  of  the 
monitor  system,  it  is  necessary  to  examine  the  details  of  monitor¬ 
ing  each  activity  of  the  computer  network  in  carrying  out  a  typical 
task,  such  as  that  defined  above. 

Examination  of  the  nine  activities  listed  for  the  task  defined 
above  indicates  that  they  can  be  segmented  into  four  distinct  jobs, 
as  given  in  Table  2.  The  Table  lists  the  resources  required  for 
each  job  and  it  can  be  noted  that  Jobs  2  and  3  require  only  local 
resources  at  Node  K,  while  Jobs  1  and  4  require  the  resources  of 
the  network  and  the  resources  at  more  than  one  node. 

A  detailed  activity  study  is  made  for  Jobs  1  and  2,  since  the 
requirements  for  these  jobs  illustrate  all  characteristics  of  the 
computer  network  and  monitor  system  operation.  In  the  study  the 
computer  network  is  assumed  to  operate  in  a  specific  manner.  It 
should  be  understood,  however,  that  this  operation  is  intended  to 
be  typical  and  not  that  of  a  specific  system. 
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TABLL  2.  Segmentation  of  Illustrative  Task 


Job 

Number 

Activities 

Principal  Resources  Used 

1 

a ,  b 

Node  K  -  Host  CPU,  Node  CPU,  Disk, 
Terminal 

MC  Node  -  Host  CPU,  Node  CPU,  Disk 

Links  -  K  to  MC  and  any  alternate 

2 

c 

Node  K  -  Host  CPU,  Disk,  Line  Printer, 
Terminal 

3 

d 

Node  K  -  Host  CPU,  Disk,  Terminal 

4 

e*  g »  i 

Node  K  -  Host  CPU,  Node  CPU,  Terminal 

Node  L  -  Host  CPU,  Node  CPU,  Disk 

Node  K  -  Host  CPU,  Node  CPU,  Terminal 

Node  I  (all  I)  -  Host  CPU,  Node  CPU, 
Terminal 

MC  Node  -  Host  CPU,  Node  CPU,  Disk 
Links  -  MC  to  each  node  and  alternate 


The  details  of  the  Job  and  Job  2  activity,  with  the  corre¬ 
sponding  function  of  the  Monitor  System  are  presented  in  an  Appen¬ 
dix  in  Tables  A1  -  A5.  Tables  A1  -  A3  list  the  general  monitor 
system  functions  and  Table  4  enumerates  the  activities  associated 
with  Job  1  and  Table  5  lists  the  activities  associated  with  Job  2. 
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A  summary  indication  of  the  functioning  of  the  Monitor  System 
is  presented  in  Figure  4.7,  which  is  a  schematic  representation  of 
the  monitor  functions  at  one  node.  Node  K.  As  each  host-controlled 
resource  is  used,  the  job  ID  is  read  into  the  appropriate  memory 
location  in  the  Two-Port  RAM.  The  software  measurement  program 
senses  the  job  ID  and  actuates  an  "infinite  loop"  which  allows 
appropriate  modules  to  measure  the  active  time  of  the  resources. 
Concurrently,  as  packets  are  generated  and  transmitted,  the  Node 
CPU  increments  the  counts  in  the  indicated  memory  locations  in  the 
Two- Port  RAM. 

The  software  measurement  program  is  interrupted  at  regular 
intervals  to  allow  the  Monitor  CPU  to  read  the  indicated  Two-Port 
RAM  memory  locations  and  transfer  the  readings  to  output  locations 
in  the  Two-Port  RAM.  The  data  stored  in  the  output  locations  is 
transferred  to  the  data  field  of  pickup  packets  when  they  arrive 
periodically.  The  arrival  (and  departure)  of  pickup  packets  also 
causes  an  interrupt  to  allow  the  Monitor  CPU  to  read  a  Real  Time 
Clock  and  insert  this  "time  stamp  data"  into  the  data  field  of  the 
pickup  packets. 

The  Monitor  Stations  at  the  other  nodes  in  the  network  operate 
in  the  same  manner  as  at  Node  K.  For  this  example,  the  final  out¬ 
put,  printed  out  at  the  MC  location,  consists  of  the  following: 

Total  time  for  the  computer  network  to  accomplish  the  task. 

Total  host-controlled  resource  utilization  for  the  task  as 
compiled  from  the  measured  active  time  for  each  host-control¬ 
led  resource,  segmented  by  jobs. 
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SCHEMATIC  REPRESENTATION  OF  THE  MONITOR  FUNCTIONS  AT  NODE 
FOR  THE  INVENTORY  CONTROL  PROBLEM 


Total  average  network  resource  use  determined  from  a  ratio 
of  the  count  of  packets  generated  on  the  task  to  total  pack¬ 
ets  generated,  allocating  measured  node  CPU  and  link  times 
to  the  task  on  a  pro  rata  basis  accounting  for  differences 
with  respect  to  time  and  to  links  traversed. 

Total  task  cost  obtained  by  multiplying  resource  use  time 
by  appropriate  resource  costs. 

• 

Average  or  histogram  for  packet  delay  time  for  each  link, 
with  time  as  a  parameter  if  appropriate,  computed  from  the 
data  obtained  by  pickup  packets. 

Average  or  histogram  for  queue  length  at  each  node  computed 
from  the  count  of  packets  awaiting  service,  with  time  as  a 
parameter  if  appropriate. 

Average  or  histogram  for  the  number  of  packets  not  acknowl¬ 
edged  at  each  node,  with  time  as  a  parameter  if  appropriate. 

Statistics  for  traffic  flow  -  average  or  histogram  for  total 
packets  arriving  at  each  node,  average  or  histogram  for 
packets  arriving  (and  leaving)  over  each  link  both  with  time 
as  a  parameter  if  appropriate. 

The  tables  in  Appendix  A  give  details  of  the  computer  network 
and  measurement  system  activities  on  typical  parts  of  the  task. 
Examination  of  these  details  shows  that  the  proposed  measurement 
system  structure  can  be  implemented  in  a  feasible  manner. 


4,3  A  Monitor  Structure  for  the  AIRMICS/GEORG I A  TECH  Experimental 

Network' 

The  implementation  of  the  hybrid  monitor  system  discussed  in 
this  section  of  the  report  was  chosen  for  its  possible  applicabil¬ 
ity  with  the  AIRMICS/GEORGIA  TECH  Experimental  Network.  Although 
the  long  range  plans  for  the  Experimental  Network  have  not  been 
specifically  quantified,  the  monitor  system  described  in  Section 
4.1  is  very  flexible  and  has  most  of  the  features  which  could  be 
required  by  this  network.  In  addition,  the  points  of  entry  into 
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the  Nodal  Monitor  Stations  are  compatible  with  what  is  available 
at  the  existing  nodes  of  the  Experimental  Network. 

As  discussed  in  general  terms  for  the  monitor  system,  three 
types  of  measurements  are  possible,  namely:  host-controlled  re¬ 
source  measurements,  network  related  measurements,  and  auxiliary 
measurements,  such  as  measurement  of  the  execution  time  of  specific 
pieces  of  software.  A  choice  of  what,  and  how  much  monitor  equip¬ 
ment  to  install  will  depend  in  detail  on  the  studies  to  be  made 
with  the  network.  Some  general  comments  can,  however,  be  made. 

Of  course  if  resources  are  available,  a  complete  monitor 
system  with  ample  equipment  for  all  three  types  of  measurements 
can  be  implemented.  On  the  otiier  hand,  the  following  comments  are 
germane  if  the  measurement  system  budget  is  limited. 

It  is  felt  that  emphasis  in  studies  made  with  the  Kxperimenta1 
Network  will  very  likely  be  on  characteristics  of  the  network  it- 
self--its  geometry,  its  routing  algorithms,  etc.,  rather  than  on 
the  efficiency  of  the  microcomputer  hosts.  To  the  extent  that  this 
is  true,  the  network  related  measurements  can  be  emphasized  and 
implemented  completely,  with  less  attention  being  given  to  the  other 
two  categories. 

At  the  present  time,  the  Experimental  Network  is  distributed 
over  only  two  locations  on  the  Georgia  lech  campus.  As  long  as  this 
is  the  case,  there  is  no  need  to  use  the  complexity  required  by  the 
scheme  for  setting  up  experiments  completely  from  the  Monitor 
Control  location. 


SO 


Of  course  there  is  the  possibility  that  the  Experimental 
Network  could  be  used  to  evaluate  prototype  equipment  for  measur¬ 
ing  the  efficiency,  or  monitoring  the  proper  functioning,  of  micro¬ 
computer  hosts.  In  such  a  case,  the  host-controlled  and  auxiliary 
measurements  can  be  emphasized  and  the  others  deemphasized. 
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EXPERIMENTAL  NETWORK 


5.1  The  Communication  Network  Philosophy 


A  major  facet  of  the  current  system  is  a  packet  switched  micro¬ 
processor  based  communications  network.  This  network,  which  far 
exceeds  the  requirements  of  the  demonstration  system,  has  error  de¬ 
tection  and  correction  capability  in  addition  to  its  communication 
functions.  The  network  is  wholly  package  switched  and  all  data  and 
internal  communications  are  handled  through  a  packet  switched  proto¬ 
col.  The  protocol  was  deliberately  made  to  be  open  ended  so  that 
additional  packet  classes  may  be  added  to  the  network  later.  The 
current  network  implements  three  packet  classes:  data  packets, 
which  carry  the  host  to  host  communication  messages;  local  acknowl¬ 
edgements,  whicli  acknowledge  adjacent  node  communications;  and 
source  acknowledgements,  which  acknowledge  the  final  receipt  of  the 
message  at  the  destination  node.  Other  classes  of  messages  which 
might  be  later  implemented  include  data  based  request  messages,  re¬ 
quests  for  distributing  processing  capability,  and  requests  for 
utility  processing. 

A  message  transmission  scenario  through  the  network  can  be  de¬ 
scribed  as  follows:  A  host  initiates  a  data  transfer  to  another  host 


on  the  network  by  transfering  to  its  network  node,  in  a  very  simple 
protocol,  the  destination  of  the  message  and  the  contents  of  the 
message.  The  network  node,  which  we  shall  call  the  origination  node, 
takes  two  specific  actions.  First,  it  buffers  the  message  as  a  safe¬ 
guard  against  the  errors  in  the  communication  process.  It  will 


retain  this  buffered  message  until  it  receives  a  "source  acknowledge¬ 
ment"  packet  from  the  destination  node  indicating  that  the  message 
has  been  received  at  its  final  destination.  Second,  the  origination 
node  forms  a  data  transfer  packet  addressed  to  the  destination  node. 
Once  the  packet  is  formed,  the  node  will  attempt  to  send  the  packet 
across  the  primary  route  to  the  destination  node.  If  this  communi¬ 
cation  route  is  busy,  the  origination  node  will  try  a  secondary 
route.  The  system  supports  three  possible  alternate  routings.  If 
any  of  the  appropriate  communications  links  are  free,  the  message 
will  commence  transmission  immediately.  If  all  of  these  communica¬ 
tions  links  are  busy,  the  message  will  be  queued  for  later  transmis¬ 
sion  on  the  primary  link. 

Ivhen  the  message  is  received  at  the  first  adjacent  node  in  the 
transfer  path,  this  intermediate  node  takes  two  specific  actions. 
First,  this  intermediate  node  forms  and  transmits  a  local  acknowl¬ 
edge  packet  back  to  the  origination  node.  This  local  acknowledge¬ 
ment  informs  the  origination  node  that  an  error  free  reception  of 
the  message  has  occurred.  This  fact  is  noted  in  the  origination 
node,  and  the  buffered  message  is  marked  as  having  been  locally 
acknowledged.  If  no  local  acknowledgement  is  forthcoming  in  a  fixed 
amount  of  time,  the  buffered  message  will  be  retransmitted.  This 
particular  error  correction  technique  allows  the  network  to  handle 
all  detected  errors  in  a  uniform  fashion:  by  discarding  and  not 
acknowledging  the  error  packets,  they  will  be  automatically  retrans¬ 
mitted.  The  second  action  taken  by  the  first  adjacent  node  is  to 
retransmit  the  data  packet  forward  towards  its  destination.  The 
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procedure  for  doing  this  is  identical  to  the  data  transfer  procedur 
described  for  the  origination  node. 

The  intermediate  node  also  holds  the  data  message  until  it  re¬ 
ceives  a  local  acknowledgment.  Unlike  the  origination  node,  how¬ 
ever,  all  intermediate  nodes  discard  the  data  message  when  the  local 
acknowledgment  is  received.  The  data  message  thus  travels  from  node 
to  node  through  the  network  with  local  errors  being  corrected  until 
it  reaches  the  destination  node. 

At  the  destination  node,  three  specific  actions  occur.  First, 
as  in  all  the  intermediate  nodes,  a  local  acknowledgment  is  trans¬ 
mitted  to  the  adjacent  node  from  which  the  message  arrived.  Second, 
information  as  to  the  message's  source  and  the  message  itself  is 
transmitted  to  the  host.  If  the  host  communication  link  is  busy, 
this  message  is  queued  for  later  transmission.  Third,  the  source 
acknowledgement  packet  is  formed  and  is  transmitted  to  the  originat 
ing  node.  This  source  acknowledgement  packet  travels  through  the 
network  in  a  fashion  identical  to  a  data  message  packet  until  it 
arrives  at  the  origination  node.  Upon  its  arrival,  the  originating 
node  discards  its  buffered  copy  of  the  original  message.  If  no 
local  acknowledgement  is  received  within  a  fixed  time  constant,  the 
data  message  will  be  retransmitted  from  the  origination  node. 

This  network  is  implemented  on  network  nodes  of  identical  hard¬ 
ware.  The  software  which  runs  within  each  node  is  identical  to  the 
software  that  runs  on  all  the  other  nodes.  Routing  for  this  network 
is  originally  setup  by  a  predetermined  network  architecture,  but  may 
be  changed  dynamically  by  host  requests  for  reroutings.  Hence  this 
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network  may  be  reconfigured  during  actual  operation,  though  this 
feature  was  not  used  as  part  of  the  study. 

The  maximum  packing  length  in  this  network  is  256  bytes.  The 
maximum  message  length  is  three  packets.  These  parameters  cannot 
be  dynamically  configured,  though  they  can  be  changed  by  minor 
programming.  All  communications  links  have  switciied  selectable 
baud  rates,  which  may  be  chosen  up  to  a  maximum  rate  of  If. 2  kilo¬ 
baud.  The  actual  network  development  work,  however,  was  done  at 
a  setting  of  1200  baud.  This  results  at  a  maximum  node-through  baud 
rate  of  If. 2  kilobaud.  Since  this  was  an  experimental  network  de¬ 
signed  primarily  to  study  networking  techniques,  the  network  code 
was  not  optimized  for  maximum  communication  through-put.  In  fact, 
all  communication  input-output  is  done  through  accumulator  transfers. 
This  offers  maximum  flexibility  with  some  loss  of  speed. 

5,2  The  Microprocessor  Network 

The  development  of  a  packet  switened  communication  network  pre¬ 
sents  many  special  and  unique  programming  debugging  problems.  It 
is  true  that  only  one  program  is  being,  developed;  however,  in  an  op¬ 
erating  network  this  one  program  runs  simultaneously  in  many  network 
node  processors.  Uithin  each  network  node  (which  are,  of  course, 
computers  in  their  own  right),  tiiere  is  a  separate  and  unique  real 
time  environment.  lirrors  wiiicn  arc  associated  with  the  real  time  nature 
of  the  node  programs  occur  as  a  direct  result  of  the  network  traffic. 

Due  to  the  asynchrony  of  tue  entire  system,  this  means  tiiat  in  many 
instances  errors  which  occur  and  arc  detected  cannot  he  repeated. 
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Another  characteristic  of  the  network  debugging  environment  is 
that  often  it  is  impossible  to  determine  the  source  of  an  error. 
Lrrors  which  are  generated  in  one  node  processor  may  be  transmitted 
out  of  that  node  without  the  recognition  of  the  node  program  itself. 
Thus,  when  the  error  is  detected  it  may  be  far  away  from  its  source. 

The  apparent  statistical  nature  of  the  behavior  of  packets 
within  the  communication  network  forces  the  programmer  into  using 
techniques  which  are  themselves  somewhat  statistical  in  nature. 

Many  of  these  techniques  are  not  only  appropriate  for  the  debugging 
of  the  network,  but  are  also  appropriate  for  the  later  testing  and 
measuring  of  the  network  performance.  The  most  important  of  these 
techniques  which  was  used  in  this  development  was  the  use  of  a 
"traffic  generator."  A  traffic  generator  is  a  piece  of  hardware 
whose  task  is  to  simulate  the  existence  of  a  larger  network  than  tho 
one  which  is  really  being  tested.  The  type  of  traffic  generators 
used  in  this  study  were  the  so-called  "constant  load"  traffic  gener¬ 
ators.  This  form  of  traffic  generator  forces  an  ambient  condition 
in  the  network  in  which  a  known  number  of  messages  are  always  present 
within  the  operating  nodes.  Thus,  for  example,  if  the  number  of  mes¬ 
sages  desired  were  five,  the  traffic  generator  would  insert  five  mes¬ 
sages  into  the  network.  Whenever  one  of  the  messages  exits  the  net¬ 
work  by  returning  to  the  traffic  generator,  the  traffic  generator 
would  insert  a  new  message  in  its  place.  In  this  way  an  approximate 
load  of  five  bogus  messages  is  kept  within  the  operating  network. 

The  use  of  the  traffic  generator  represents  a  Monte  Carlo  ap¬ 
proach  to  the  problem  of  network  debugging.  When  a  traffic  generator 
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is  allowed  to  run  for  long  periods  of  time,  a  large  number  of  dif¬ 
ferent  real  time  network  states  are  excited.  Thus,  the  network's 
operation  may  be  checked  over  many  operating  conditions  beyond  the 
scope  of  its  original  architecture. 

Two  different  traffic  generators  were  implemented  as  part  of 
this  study.  The  first,  called  the  "dummy  load"  traffic  generator, 
was  implemented  as  the  combination  of  a  multi-task  Fortran  program 
on  the  Nova  820  in  the  digital  signal  processing  laboratory  and  a 
modified  version  of  the  network  node  program  on  a  network  communica¬ 
tion  box. 

This  traffic  generator  operated  in  conjunction  with  a  number  of 
dummy  routes  which  were  preassigned  during  network  initialization. 

The  dummy  routes  always  started  in  the  traffic  node,  passed  through 
one  or  more  other  nodes  in  the  network,  and  finally  terminated  in 
the  traffic  node.  The  traffic  generator  initiates  messages  along 
these  dummy  routes  and  receives  the  messages  when  they  return.  Thus, 
from  the  view  point  of  the  ordinary  network  host,  the  network  oper¬ 
ates  normally,  but  appears  to  be  bearing  communication  traffic  from 
a  larger  outside  network. 

The  second  traffic  generator  was  the  so-called  "host  involvement" 
traffic  generator.  This  function  was  implemented  entirely  in  the 
Nova  820  and  required  no  special  modification  of  the  network  nodes. 
During  the  operation  of  this  traffic  generator,  all  the  network  hosts 
were  dedicated  to  the  testing  procedures.  bach  host  ran  a  program 
which  returned  an  exact  copy  of  the  message  it  received  to  the  source 
of  the  message.  The  traffic  generator  sent  a  variety  of  messages  to 
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the  various  hosts  and  waited  for  the  message  to  return.  Hence,  the 
use  of  this  traffic  generator  constituted  a  test  which  involved  the 
host’s  data  transfer  program  as  well  as  a  multiple  real  time  environ 
ment  within  the  network  itself. 

5.3  Description  of  Computer  Network  Hardware 

This  section  describes  the  specifications  of  the  computer  hard¬ 
ware  that  was  purchased  in  order  to  complete  the  proposed  research 
proj  ect . 

Figure  5.1  shows  a  fundamental  block  diagram  of  the  complete 
computer  network.  In  the  computer  network  there  are  four  host  com- 
puters--an  Intel  microcomputer  system,  a  Data  General  computer  sys¬ 
tem,  a  Motorola  microcomputer  system,  and  an  PDP  11/70  minicomputer 
system.  Associated  with  each  computer  host  is  a  microprocessor  com¬ 
munications  node.  The  microprocessor  node  has  the  responsibility  o 
handling  all  the  network  communications  sent  and  is  discussed  in  de¬ 
tail  in  Appendix  C. 

Since  the  Intel  and  PDP  11/70  host  computers  are  located  at  the 
AIRMICS  computer  site,  and  the  Motorola  and  Data  General  hosts  are 
located  at  the  Electrical  Engineering  laboratory,  the  connection  be¬ 
tween  the  Intel  and  the  Data  General  microprocessor  host  is  accom¬ 
plished  by  means  of  a  standard  telephone  line  and  two  Universal  Data 
System  1200  baud  modems.  The  following  sections  will  describe  all 
of  the  commercially  available  equipment  in  the  computer  networks 
except  the  PDP  11/70  computer  system  which  was  an  existing  AIRMICS 
facility  and  not  purchased  for  the  purpose  of  completing  this  partic 
ular  project. 
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1)  The  Intel  microcomputer  system,  illustrated  in  Figure  5.2, 
is  a  standard  Intel  model  230  microcomputer  system  with  an  addition¬ 
al  Teletype  40  line  printer.  The  computer  system  contains  a  central 
processing  unit,  random  access  memory,  read  only  memory,  dual  floppy 
disk  drives  with  controller,  CRT  with  keyboard  and  controller,  line 
printer  serial  interface,  and  network  serial  interface. 

2)  The  Intel  central  processing  unit  is  a  standard  Intel 
microprocessor  with  an  0080A  microprocessor  chip,  2.6  Mllz  proces¬ 
sor  clock,  system  controller,  multibus  priority  resolution  circuits, 
multi-bus  controlling  data  drivers,  address  drivers,  system  clock 
generator,  and  I/O  board  address  decoder. 

3)  The  random  access  memory  is  a  64  Kbyte  memory  used  for  storing 
parts  of  the  operating  system,  user  programs,  and  data.  The  read¬ 
only  memory  is  used  to  hold  the  resident  portion  of  the  ISIS  II 
monitor,  revision  1.2. 

4)  The  complete  ISIS  II  operating  system  is  stored  on  the  floppy 
disk  and  is  read  in  automatically  from  the  read  only  memory  portion 
of  the  monitor.  The  dual  floppy  disk  drives  are  housed  in  a  separate 
cabinet  and  interfaced  to  a  floppy  disk  controller  in  the  central 
processor  unit  cabinet.  The  disk  will  hold  approximately  200  Kbytes 
of  data  on  each  disk  and  handle  double  density  cassettes. 

5)  The  CRT  is  housed  in  an  integral  part  of  the  central  proces¬ 
sor  console  and  the  CRT  screen  storage  uses  a  section  of  memory  to 
store  the  characters  that  are  being  displayed.  This  means  that  a 
character  can  be  displayed  on  a  CRT  screen  by  storing  the  character 
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FIGURE  5.2 


THE  INTEL  MICROCOMPUTER  SYSTEM 
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in  an  appropriate  memory  location  in  random  access  memory.  Die  line 
printer  is  interfaced  through  a  standard  RS232  lilA  level  interface 
with  baud  rates  adjustable  from  110  to  9 o 0 (I  baud.  The  baud  rate  is 
programmable  under  software  control,  and  is  currently  set  at  1200  baud. 

6)  The  network  interface  is  a  standard  RS232  1.1  A  interface  which 
permits  the  system  to  talk  to  the  computer  system  network. 

The  Motorala  and  Data  General  microcomputer  systems  have  equi¬ 
valent  hardware  to  the  Intel  system. 

5.4  Network  Trafficking  Hxper  intents 

5.4.1  Introduction:  Any  reasonably  designed  computer  network  will 
transfer  messages  from  one  computer  host  to  another,  as  does  the 
computer  network  described  in  this  project.  The  transfering  of  mes¬ 
sages  between  a  m icrocomputer  host  running  COBfL  inventory  programs 
does  not  push  the  computer  communication  network  to  a  point  anywhere 
close  to  its  limits  in  order  to  test  additional  loading  on  the  net¬ 
work.  The  data  General  Nova  820  computer  was  added  as  an  additional 
host  in  the  network  with  its  own  network  processor  node  (.shown  in 
Figure  5.5).  Instead  of  running  time  consuming  inventory  programs  to 
send  out  messages  through  the  network,  the  Nova  820  sent  messages  in  a 
controlled  manner  such  that  a  given  number  of  messages  would  be  kept  in 
the  network  at  one  given  time.  In  this  manner  it  was  possible  to  sim¬ 
ulate  additional  network  traffic  without  the  expense  of  adding  costly 
host  computer  systems.  The  traffic  generator  system  could,  in  effect, 
simulate  the  effect  of  many  additional  hosts  on  the  network. 
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5.4.2.  Traffic  Routes:  In  order  to  send  messages  through  the  sys 
it  was  first  necessary  to  establish  particular  message  routes  for 
the  traffic  node  to  send  messages  through  the  network  and  back  to 
itself.  The  traffic  generator  would  then  send  the  message  out  to 
the  network  on  a  given  route,  the  message  would  tra  /el  completely 
through  the  network  route  and  return  to  the  i\ova  820.  When  the 
message  returned,  the  message  was  compared  character  by  character 
with  the  transmitted  message  and  any  deviation  in  output  to  input 
would  be  indicated  on  the  Nova  820  main  terminal.  The  Nova  820  also 
kept  track  of  lost  messages,  that  is,  messages  that  were  sent  out 
to  the  computer  network  on  a  given  route  but  were  never  returned  to 
the  820.  The  particular  traffic  routes  that  were  set  up  in  the 
microprocessor  communication  system  are  tabulated  in  Table  5,  and  an 
illustration  of  each  route  is  shown  in  Appendix  B. 

5.4,5.  The  F:irst  Traffic  Experiment:  The  first  traffic  experiment 
was  a  simple  two  communication  processor  loop  that  sent  messages 
from  one  processor  (which  acted  as  a  traffic  node)  through  one  of 
the  other  processors  and  returned.  Traffic  could  be  initiated 
through  any  of  the  node  ports  and  in  this  manner  the  hardware  could 
be  checked  for  reliable  operation.  It  was  of  particular  interest  to 
verify  that  each  of  the  four  serial  ports  on  the  processors  were 
operating  reliably  and  that  a  reasonable  error  rate  could  be  expected 
between  any  two  communicating  ports.  The  single  loop  traffic 
experiment  was  repeated  with  each  of  the  communication  processors  so 
that  the  reliability  of  each  processor  could  be  verified.  The 
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TABLE  3.  TRAFFIC  ROUTES 


NAME 

NODE 

F 

E--D- 

-A- 

-E 

G 

E--A- 

-D- 

-E 

H 

E--D- 

-B- 

-A- 

-E 

I 

1 

< 

-B- 

-D- 

-E 

J 

E--C- 

-B- 

-D- 

-E 

K 

E--D- 

-B- 

-C- 

-i: 

L 

E--C- 

-B- 

-D- 

-A 

M 

E--A- 

-D- 

-B- 

-C 

N 

E--C- 

-B- 

-A- 

-E 

0 

E--A- 

-B- 

-  (> 

-E 

P 

L--C- 

-IS- 

-A- 

-D 

Q 

E--D- 

-A- 

-B- 

*C 
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result  of  the  single  traffic  loop  experiment  were  as  follows: 


1.  A  number  of  intermittent  and  hard  failures  were  found  in  the 
serial  I/O  ports  and  repaired. 

2.  A  number  of  hardware  problems  with  the  interrupt  structure 
were  isolated  and  repaired. 

3.  A  maintenance  log  was  established  on  all  the  components  of 
the  microprocessor  nodes  indicating  any  failure  of  any  of  the  com¬ 
ponents  and  the  fact  that  the  components  had  passed  the  single-loop 
test . 

4.  The  single-loop  test  proved  that  the  processor  node  soft¬ 
ware  is  a  single-input/singie-output  process. 

5.  The  single-loop  traffic  test  provided  us  some  burn  in  time 
for  the  processor  components,  which  was  extremely  important  since 
input  mortality  is  one  of  the  most  important  reliability  problems  ir 
integrated  circuit  technology. 

5.4.4  Single  Host  Traffic  Test:  In  this  test  the  Nova  820  communi¬ 
cated  with  each  microcomputer  host  through  its  microprocessor  node. 
Programs  were  written  on  each  of  the  three  microcomputers  to  receive 
a  message  from  the  network  and  return  the  same  message  to  its  origi¬ 
nator.  The  Nova  820  would  then  send  a  message  through  its  node  to 
the  host  node.  The  host  would  echo  that  message  back  to  the  820 
where  the  820  compared  the  return  message  with  the  transmitted  mes¬ 
sage  to  detect  only  errors.  The  Nova  820  could  vary  the  number  of 
messages  sent  back  to  back,  the  length  of  each  message  and  the  char¬ 
acter  in  the  message. 

ob 


The  results  of  these  series  of  tests  were  as  follows: 


1.  The  test  verified  the  hardware  protocol  between  each  host 
and  its  communication  processor.  lhis  hardware  protocol  included 
the  correct  cabling  and  correct  action  and  polarity  of  data  termi¬ 
nal  ready,  clear  to  send,  data  set  ready  and  request  to  send. 

2.  These  tests  verified  the  reliability  of  the  host  to  commu¬ 
nication  processor  serial  interface. 

j.  inesc  tests  verified  the  operation  of  the  communication 
drivers  in  both  the  host  computers  and  the  microprocessor  nodes. 

4.  The  test  produced  necessary  burn  in  and  reliability  time 
on  the  microprocessor  nodes. 

5.4.5  Multiple  Host  Traffic  Test:  In  the  multiple  host  traffic- 
test,  two  or  more  microprocessor  hosts  with  their  communication  i ro- 
cessors  were  hooked  to  the  traffic  communication  processor  and  82b. 

The  821)  would  send  messages  to  both  of  the  host  microcomputer  systems 
through  the  microprocessor  network.  The  mi crocomputer  host  would  echo 
the  messages  back  to  the  820  where  they  were  checked.  In  this  test  the 
820  could  vary  the  number  of  messages  back  to  back,  the  number  of 
ciia  ract  ers  in  each  message  and  the  routes  through  the  microprocessor 
network.  This  tost  was  designed  primarily  to  check  the  ability  of  the 
nodes  to  handle  multidirectional  traffic.  kith  multidirectional 
traffic,  1 1) e  nodes  arc  forced  to  queue  messages  and  queue  local 
acknowledgements,  and  the  interrupt  handler  in  the  nodes  is  forced  to 
sort  and  queue  messages  in  different  directions.  The  results  of 
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this  test  were  as  follows: 

1.  This  test  uncovered  several  subtle  software  errors,  such 
as  that  the  software  would  handle  silicic  traffic  patterns,  but 
would  fail  when  multiple-loop  tests  would  force  certain  routines  to 
lie  used  in  a  re-entry  manner. 

2.  The  test  validated  the  basic  structure  of  tne  message  buf¬ 
fers  and  queucinc  structure  used  by  the  nodes  to  sort  and  store  multi¬ 
ple  messages. 

3.  This  test  pointed  out  several  network  characteristics  that 
'■•’ill  be  covered  below  in  the  section  on  general  network  cnaracteris- 

tics . 

5.4.0  Multiple  hoop  Ira  flic  Test:  in  this  series  of  tests  the  micro¬ 
processor  nodes  of  tiie  network  were  connected  without  host  computers 
to  the  820  traffic  noue.  The  820  would  senu  messages  through  dif¬ 
ferent  routes  in  the  network  with  the  82u  selected  as  the  final  des¬ 
tination  of  the  message.  The  820  was  programmed  to  maintain  a  cer¬ 
tain  number  of  messages  running  through  the  network  at  any  one  time. 
That  is,  the  820  would  send  out  n-messages  into  the  network.  As  soon 
as  one  message  was  returned  from  tne  network,  another  message  was 
immediately  sent  back  to  the  network.  In  this  manner,  n-messages  were 
always  kept  running,  through  the  network.  1  lie  8  20  could  control 
the  number  of  messages  in  the  network,  the  length  and  content  of 
each  message  and  the  root  for  each  message.  inis  test  was  designed 
to  operate  the  network  in  a  controlled  loading  manner  so  that  var- 


ious  network  limits  could  be  investigated.  The  result  of  this  series 
of  tests  are  as  follows: 

1.  It  was  determined  that  the  microprocessor  nodes  could  send 
multiple  path  messages  at  baud  rates  of  1200  baud  or  less. 

2.  It  was  determined  in  10  hours  of  continuous  testing  that 
the  number  of  CRC  errors,  loss  messages,  lost  local  acknowledgements, 
and  incorrect  messages  was  extremely  small.  The  error  rate  was  less 
than  one  error  per  a  million  characters. 

Additional  network  characteristics  were  determined,  and  will 
be  discussed  in  the  section  on  general  network  characteristics. 

5.4.7  Network  Test  with  Inventory  Control  Program  and  Node  Traffick¬ 
ing  :  In  this  test  the  Intel  microcomputer  and  the  Motorola  micro¬ 
computer  and  PI)P  11/70  minicomputers  were  connected  as  with  their 
microprocessor  nodes  as  a  standard  network  and  each  node  of  the  in¬ 
ventory  control  program  was  tested  for  correct  operation  of  the  pro¬ 
grams  as  well  as  the  network  responses.  The  CS-20  microcomputer  was 
eliminated  from  this  test  because  the  manufacturer,  Data  General, 
would  not  give  us  proper  information  to  properly  modify  the  network 
driver  to  operate  further  COBOL  in  the  correct  manner.  In  this  test, 
each  of  the  instructions  for  the  inventory  control  program  (as  de¬ 
scribed  in  the  inventory  control  program  section)  was  executed  on 
each  machine  and  verified.  Operator  initiated  messages  were  sent 
between  each  pair  of  host  computers  and  the  received  message  verified. 
Remote  holding  of  data  bases  was  tested  and  verified,  as  well  as  re¬ 
mote  transaction  initiation.  The  results  of  this  series  of  tests  were 
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as  follows: 

1.  This  test  verified  that  basically  the  same  COBOL  program 
could  be  used  on  the  three  host  computer  to  correctly  operate  the 
inventory  control  program. 

2.  This  test  verified  that  the  COBOL  programs  could  implement 
the  correct  protocols  to  talk  to  the  network  and  receive  messages 
from  the  network. 

5.  This  test  pointed  out  the  sensitivity  of  the  different 
host  computers  to  network  protocols.  These  will  be  discussed  in 
detail  in  the  section  on  host  network  characteri st ics . 

4.  The  sensitivity  of  the  host  to  the  network  protocol 
emphasized  the  desirability  of  a  communication  processor  whose  host 
protocol  can  be  tailored  to  the  host  machine  drivers. 

5.4.8  CS-20  Inventory  Control  Test:  In  this  test,  the  software 
inventory  program  for  the  CS-20  was  tested  with  a  remote  terminal 
acting  as  the  network.  liven  though  the  CS-20  would  not  implement 
the  desired  network  protocol,  the  remote  terminal  was  used  to  verify 
that  the  inventory  program  would  operate  correctly  with  a  modified 
protocol.  This  verified  the  portability  of  the  COBOL  software  even 
though  the  network  protocol  could  not  be  implemented. 

5.4.9  Inventory  Control  Program  Test  with  Trafficking:  In  this 
series  of  tests,  the  full  network  was  connected  with  the  exception 
of  the  CS-20  host  computer.  The  CS-20  communication  processor  was 
included.  The  820  computer  was  connected  to  the  network  through  a 
traffic  generator  node  as  shown  in  figure  5.3.  The  820  generated 
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series  of  messages  through  different  routes  through  the  microproces¬ 
sor  communication  network  at  the  same  time  that  the  inventory  con¬ 
trol  program  was  sending  messages  between  host  computers. 

5.5  General  Characteristics  of  the  Computer  Communication  Network 

The  following  section  describes  the  characteristics  of  the  com¬ 
puter  communication  network  as  determined  by  the  series  of  inventory 
control  programs  and  the  traffic  generator  programs  as  described  in 
the  previous  section. 

It  was  determined  during  the  series  of  tests  that  the  network 
exhibited  certain  characteristic  behaviors  in  particular  situations, 
and  that  the  network  was  sensitive  to  certain  types  of  situations. 
None  of  these  characteristics  made  the  network  unusable,  but  it  is 
important  to  understand  these  limitations  as  a  step  to  improving 
future  network  communication  systems. 

ITEM  1:  Sensitivity  of  the  network  to  host  protocol.  Because 
the  host  computers  were  being  operated  from  a  higher  level  language 
(COBOL),  there  was  very  low  flexibility  in  establishing  a  complex 
protocol  between  the  host  and  the  microprocessor  host.  Therefore, 
the  following  simple  protocol  was  established  for  sending  a  message 
from  the  host  to  the  network: 

a)  The  host  starts  a  message  by  sending  the  letter  of  the 
destination  node  proceeded  by  an  open  parenthesis.  In  this  particu¬ 
lar  network,  the  nodes  were  lettered  "a"  through  "d". 

b)  The  host  follows  the  destination  code  with  a  string  of  mes¬ 
sage  characters.  These  characters  can  be  any  eight  bit  code  asking 
for  data. 


c)  The  message  string  is  terminated  by  sending  an  ACSII 
exclamation  point  character.  If  an  exclamation  point  is  used  as 
part  of  the  message  string,  it  must  be  proceeded  by  an  escape  char¬ 
acter  so  that  the  microprocessor  node  will  not  take  it  to  be  the  end 
of  the  message.  An  example  of  a  typical  message  is  given  below: 

(C  THIS  IS  A  'IT.  ST  MLS  SAC.  Li! 

The  protocol  for  messages  from  the  microproces sor  to  the  host 
is  similar  except  for  the  source  of  the  message  and  the  destination. 
Neither  the  host  nor  the  communication  processor  acknowledge  any 
messages  and  no  vertical  or  longitudinal  parity  is  checked. 

Because  this  protocol  is  extremely  simple,  it  makes  it  easy  to 
incorporate  into  high  level  languages  such  as  COBOL,  but  this  simple 
protocol  does  not  provide  a  means  for  checking  the  communications 
between  the  host  and  the  microcomputer  or  the  microcomputer  and  the 
host.  Therefore,  all  communication  errors  between  the  host  and  micro¬ 
computer  will  be  undetected.  If  an  error  occurs  in  the  message 
string,  the  result  would  be  an  erroneous  message  at  the  destination, 
but  the  network  would  be  unaffected.  One  of  the  most  serious  pro¬ 
blems  would  be  the  possibility  of  an  error  in  the  destination  code 
at  the  begining  of  the  message.  If  this  code  were  wrong,  the  network 
would  try  to  send  the  message  to  a  different  destination.  This 
would  result  in  a  host  getting  a  wrong  message,  or  if  the  destination 
were  not  part  of  the  network,  the  message  would  remain  in  the  network 
trying  to  be  transmitted.  If  enough  such  messages  were  kept  in  the 
network,  the  processor  memory  space  could  be  exhausted,  causing  the 
network  to  fail.  If  the  exclamation  point  were  communicated  with 


■p 


an  error,  the  result  would  most  likely  be  two  messages  packed  to¬ 
gether  as  one,  which  would  be  an  error  in  the  total  communication, 
but  would  not  bother  the  action  of  the  communication  network. 

ITEM  II:  Sensitivity  of  the  network  software  to  buffer  over¬ 
flows.  The  present  network  software  is  sensitive  to  possible  over¬ 
flow  in  buffer  storage  or  queue  sizes.  The  present  network  will  try 
to  handle  incoming  data  beyond  its  capacity.  This  is  not  a  problem 
with  the  normal  function  of  the  network,  since  its  capacity  is  clear¬ 
ly  capable  of  handling  the  inventory  control  program  without  exceed¬ 
ing  buffer  or  queue  sizes,  but  under  the  extreme  condition  where  the 
traffic  generator  is  sending  excessive  traffic  through  the  network, 
the  network  can  be  caused  to  fail  due  to  excessive  traffic.  An  ex¬ 
tremely  straightforward  method  of  handling  this  problem  would  be  to 
implement  the  "clear"  and  "send"  lines  between  the  microprocessor 
nodes  and  the  host.  These  lines  could  be  used  to  stop  the  host 
computer  from  putting  more  traffic  on  the  network  than  the  network 
can  accomodate.  The  hardware  to  implement  this  connection  is  cur¬ 
rently  in  the  network,  but  the  software  to  support  these  lines  is 
not  included  in  the  present  node  software  package. 

ITEM  III:  Sensitivity  of  the  network  to  loss  of  local  acknowl¬ 
edgements.  In  the  present  network  a  fairly  simple  acknowledgement 
scheme  is  used  for  ver if ying  data  transmission  between  two  micropro¬ 
cessor  nodes.  In  this  process,  a  packet  is  formed  in  one  node  and 
sent  to  another  node.  The  packet  is  checked  for  parity  and  CRC  error, 
and  if  both  of  these  are  correct,  the  message  is  acknowledged  by 
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sending  a  local  acknowledgement  packet  back  to  the  transmitting  nod 
If  the  parity  or  the  CRC  does  not  check,  then  the  receiving  node 
does  not  send  an  acknowledgement  at  all  and  the  transmitting  node 
will  wait  a  given  amount  of  time  ana  then  try  re-sending  the  message. 
This  scheme,  in  effect,  uses  a  time  out  for  a  negative  acknowledge¬ 
ment.  Since  there  is  no  verification  or  check  of  the  local  acknowl¬ 
edgement  package,  some  problems  can  arise  from  this  technique  if 
errors  occur  in  the  transmission  of  local  acknowledgement  packets. 

If,  for  instance,  the  receiving  node  receives  a  message  packet  and 
it  is  correct,  then  it  sends  an  acknowledgement  to  the  transmitting 
node.  If  there  is  an  error  in  the  transmission  local  acknowledgement, 
the  transmitting  node  will  time  out  and  re-send  the  message  which  the 
receiving  node  will  now  take  as  a  second  valid  message.  A  second, 
but  less  likely  possibility  is  that  the  transmitting  node  would  re¬ 
ceive  a  packet  in  error  that  it  thinks  is  a  valid  local  acknowledge¬ 
ment  and  would  clear  its  buffer  of  a  packet  that  has  not  been  cor¬ 
rectly  received.  A  third  possibility  is  the  reception  of  a  local 
acknowledgement  packet  with  invalid  information  in  it.  The  local 
acknowledgement  packet  contains  information  telling  the  transmitting 
node  which  message  has  been  correctly  received  and,  therefore,  to 
clear  its  buffer  of  that  particular  message.  If  an  acknowledgement 
packet  is  received  and  taken  to  be  valid,  but  has  incorrect  data  con¬ 
cerning  which  packet  was  being  acknowledged,  the  transmitting  node 
would  clear  its  buffer  of  the  wrong  message  and  continue  to  rc-trans- 
mit  the  acknowledged  message.  If  a  sufficient  number  of  erroneous 
local  acknowledgements  are  passed  through  the  network,  the  network 


could  fail  due  to  mis-sent  and  un-sent  messages. 

I  TIM  IV:  Sensitivity  of  the  network  to  messages  with  improper 
destinations.  One  characteristic  of  the  network  that  is  an  out¬ 
growth  of  the  time-out  and  re-transmit  scheme  for  unacknowledged 
messages  is  a  problem  with  messages  that  enter  the  network  with 
improper  destination.  If  a  host  sends  a  message  to  a  microprocessor 
node  with  an  invalid  destination,  or  the  node  receives  a  message 
with  an  error  in  its  destination,  then  the  node  might  transmit  a 
message  to  a  destination  that  does  not  exist.  If  the  destination 
does  not  exist,  then  the  message  can  never  be  acknowledged.  The 
source  node  will  then  continue  to  re-transmit  the  message  on  a  time¬ 
out  and  re-transmit  basis.  Therefore,  the  message  will  forever  be 
re-transmitted  by  the  source  node.  If  enough  messages  with  no  proper 
destination  are  put  into  the  network,  the  network  will  start  to  de¬ 
grade  in  performance  as  the  false  messages  are  being  transmitted, 
and  then  finally  fail  as  the  node  buffers  become  overflowed  with 
messages  with  no  destinations.  One  possible  solution  to  this  problem 
without  altering  the  time-out  and  re-transmit  scheme  would  be  to 
add  additional  software  functions  to  the  node  to  check  for  messages 
with  invalid  dcrtinations  and  clean  them  out  of  the  node  buffer. 

This  could  be  implemented  as  a  table  of  valid  destinations,  or  by 
determining  that  after  a  message  has  been  retransmitted  a  certain 
number  of  times  that  it  be  declared  an  invalid  destination.  When  an 
invalid  destination  message  is  found,  the  message  should  be  removed 
from  the  buffer  so  that  the  buffer  space  can  be  returned  for  active 
operation  and  some  record  should  be  kept  of  the  number  of  messages 


removed . 


r 


IThM_Y:  Availability  of  network  operational  status.  The  pre¬ 

sent  network  is  not  equiped  with  a  means  of  monitoring  the  present 
operational  status  of  the  network,  so  that  even  detected  errors  tiiat 
occur  are  not  recorded  on  a  real  time  operational  basis.  There  is 
also  no  implementation  of  correctional  measures  when  error  rates 
exceed  certain  values.  Implementing  routines  to  keep  track  of  mis- 
operation  of  the  network  would  be  an  extensive  task,  but  would  be 
an  excellent  extension  of  the  network  capability.  There  would  be 
two  possible  approaches  to  this  extension.  The  first  would  be  to 
handle  network  operational  status  on  a  local  basis.  That  is,  each 
node  would  keep  track  of  any  network  misoperation  that  it  detected 
and  would  relay  that  information  to  its  host.  bach  host  would  then 
be  programmed  to  take  any  corrective  actions  required,  and  possibly 
relay  information  about  network  operational  status  to  the  host  oper¬ 
ator.  Another  approach  would  be  to  dedicate  a  node  of  the  network 
and  possibly  a  host  computer  to  keep  track  of  the  total  operational 
basis  of  the  network.  In  this  scheme,  any  node  that  detected  a  mal¬ 
function  in  the  network  would  form  a  packet  to  be  sent  to  the  status 
node  regarding  the  failure  and  the  type  of  failure.  The  status  node 
would  be  responsible  for  collecting  this  information  and  performing 
corrective  actions.  Once  corrective  action  was  determined,  the 
status  mode  would  then  send  a  packet  back  to  the  appropriate  nodes 
telling  them  to  restructur  the  routing  of  the  network  to  try  to  com¬ 
pensate  for  network  failures.  This  second  tcct-'ique,  though  more 
complex,  lias  the  advantage  that  decisions  about  restructuring  the 
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network  could  be  made  on  status  reports  from  all  the  nodes  instead 
of  just  local  behavior. 
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6.  NETWORK  COBOL 


6.1  Introduction 

Because  the  Army  uses  multi-vendor  machines,  it  is  desirable 
for  the  Army  to  have  a  language  subset  that  is  compatible  with  all 
of  its  machines.  Such  a  language  subset  could  provide  a  single 
program  which  would  be  executed  by  all  the  processors  in  the  system. 
This  capability  would  greatly  simplify  life  cycle  management  by 
eliminating  the  need  for  different  versions  of  the  same  program  to 
run  on  several  machines. 

The  following  is  a  subset  of  M6800  COBOL,  MICROSOFT  COBOL,  Data 
General  CS-20  COBOL,  and  DEC  PDP-11  COBOL,  called  NETWORK  COBOL. 
NETWORK  COBOL  has  this  important  advantage  of  being  compatible  with 
the  INTEL,  MOTOROLA,  DATA  GENERAL,  and  PDP  11/70  machines. 

NETWORK  COBOL  has  been  tested  and  is  the  design  language  which 
was  used  with  the  AIRMI CS/GEORG I A  TECH  microprocessor  network  to 
develop  a  distributed  data-base-management  program. 

Under  the  AIRMI CS/GEORG I A  TECH  project,  several  things  were 
accomplished: 

1.  A  common  subset  of  the  COBOL  versions  available  for  the 
INTEL  8080  MDS  System,  the  M6800  based  EXOTERM,  the  DATA  GENERAL  C520 
System,  and  the  PDP  11/70  was  generated.  This  subset  is  termed 
NETWORK  COBOL. 

2.  A  demonstration  distributed  and  duplicate  data  base  manage¬ 
ment  program  was  developed  to  do  simple  inventory  control. 
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3.  Programs  were  developed  to  convert  between  the  various 
COBOL  formats  and  also  handle  the  hardware  related  differences  be¬ 
tween  the  COBOL  dialects. 

4.  Several  other  programs  were  developed  to  rectify  isolated 
differences  in  the  various  operating  systems. 

6.2  Acknowledgement 

In  compliance  with  the  request  of  the  Executive  Committee  of 
the  Conference  on  Data  System  Languages  (CDDASYL),  and  specifically 
the  CODASYL  COBOL  Committee,  the  following  acknowledgement  is  ex¬ 
tracted  from  that  contained  in  the  publication  COBOL,  Edition  1974. 

"Any  organization  interested  in  reproducing  the  COBOL  report 
and  specifications*,  in  whole  or  in  part,  using  ideas  taken  from 
this  report  as  the  basis  for  an  instruction  manual  or  for  any  other 
purpose  is  free  to  do  so.  However,  all  such  organizations  are  re¬ 
quested  to  reproduce  this  section  as  part  of  the  introduction  to  the 
document.  Those  using  a  short  passage,  as  in  a  book  review  ,  are 
requested  to  mention  COBOL  in  acknowledgement  of  the  source,  but 
need  not  quote  this  entire  section. 

"COBOL  is  an  industry  language  and  is  not  the  property  of  any 
company  or  group  of  companies,  or  of  any  organization  or  group  of 
organizations . 

"No  warranty,  expressed  or  implied,  is  made  by  any  contributor 
or  by  the  COBOL  Committee  as  to  the  accuracy  and  functioning  of  the 
programming  system  and  language.  Moreover,  no  responsibility  is 
assumed  by  any  contributor,  or  by  the  Committee,  in  connection  there 
with. 
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"Procedures  have  been  established  for  the  maintenance  of  C 0 
Inquiries  concerning  the  procedures  for  proposing  changes  should  be 
directed  to  the  Executive  Committee  of  the  Conference  on  Data  Systems 
Languages  (CODASYL). 

"The  authors  and  copyright  holders  of  the  copyrighted  material 
used  herein  have  specifically  authorized  the  use  of  this  material, 
in  whole  or  in  part,  in  the  COBOL  specifications.  Such  authorization 
extends  to  the  reproduction  and  use  of  COBOL  specifications  in  pro¬ 
gramming  manuals  or  similar  publications." 

*COBOL,  Edition  1965,  produced  by  joint  efforts  of  the  CODASYL 
COBOL  Committee  and  the  European  Computer  Manufacturers  Association 
(ECMA)  . 

FLOIV-MATIC  (Trademark  of  Sperry  Rand  Corporation),  Programming 
for  the  Univac  (R)  I  and  II,  Data  Automation  Systems  copyrighted 
1958,  1959  by  Sperry  Rand  Corporation;  IBM  Commercial  Translator 
Form  No.  F  28-8013,  copyrighted  1959  by  IBM;  FACT,  DSI  27A52OU-27O0 , 
copyrighted  1900  by  Minneapolis-Honeywell . 

6.3  Preface 

M0800  COBOL  is  based  on  the  specification  of  the  COBOL  standard 
published  by  the  American  National  Standards  Institute  (formerly 
known  as  the  United  States  of  America  Standards  Institute)  and  con¬ 
tained  in  the  publication  USA  Standard  COBOL  X3.23  -  1974. 

As  its  name  implies,  COBOL  (COmmon  Business  Oriented  Language) 
is  especially  efficient  in  the  processing  of  business  problems.  Such 
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problems  typically  involve  relatively  little  algebraic  or  logical 
processing;  instead,  they  most  often  manipulate  large  files  of 
basically  similar  records  in  a  relatively  simple  way.  This  means 
that  COBOL  emphasizes  mainly  the  description  and  handling  of  data 
items  and  input/output  records. 

This  publication  explains  NETWORK  ANS  COBOL  which  is  a  compat¬ 
ible  subset  of  American  National  Standard  COBOL.  The  compiler  sup¬ 
ports  the  processing  modules  defined  in  the  standard.  These  proces¬ 
sing  modules  include  the  following: 

NUCLEUS  defines  the  permissible  character  set  and  the  basic 
elements  of  the  language  in  each  of  the  four  COBOL  divisions:  IDENTI¬ 
FICATION  DIVISION,  ENVIRONMENT  DIVISION,  DATA  DIVISION,  PROCEDURE 
DIVISION. 

TABLE  HANDLING  allows  the  definition  of  tables  of  contiguous 
data  items  and  accessing  these  items  through  subscripts. 

SEQUENTIAL  ACCESS  allows  the  records  of  a  file  to  be  accessed 
in  an  established  sequence.  It  also  provides  for  the  specification 
of  rerun  points  and  the  sharing  of  memory  area  among  files. 

RANDOM  ACCESS  allows  the  records  of  a  mass  storage  file  to  be 
accessed  in  a  random  manner  specified  by  the  programmer.  It  also 
provides  for  the  specification  of  rerun  points  and  the  sharing  of 
memory  area  among  files.  Specifically  defined  keys,  supplied  by  the 
programmer,  control  successive  references  to  the  file. 

LI BRARY  allows  the  programmer  to  specify  text  that  is  to  be 
copied  from  a  library.  This  feature  is  different  on  all  machines  and 
so  is  not  used  in  NETWORK  COBOL. 
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6.4  Organization  of  Manual 

A  COBOL  source  program  consists  of  information  in  four  divi¬ 
sions:  the  IDENTIFICATION  DIVISION,  ENVIRONMENT  DIVISION,  DATA 

DIVISION,  and  PROCEDURE  DIVISION.  Taken  together,  these  divisions 
constitute  the  total  program  (including  a  description  of  the  con¬ 
figuration  needed,  the  forms  of  various  data  files,  and  the  program¬ 
ming  steps  necessary  to  perform  these  procedures),  and  are  presented 
to  the  processor  for  compilation  into  a  corresponding  object  program. 

In  this  manual,  NETWORK  COBOL  is  described  as  follows: 

Sections  6.6  and  Sections  6.7  describe  the  COBOL  language 
structure.  It  presents  the  COBOL  theory  behind  work  for¬ 
mation,  the  use  of  words  to  name  elements  in  a  program, 
and  a  discussion  of  the  syntax  of  the  language. 

Sections  6.8  through  Sections  6.15  contain  a  discussion 
of  the  format  and  organization  of  data  files,  together 
with  methods  used  to  remove  data  from,  or  place  data  into, 
such  files. 

Sections  6.16  through  Sections  6.1!)  present  a  detailed 
description  of  the  IDENTIFICATION,  ENVIRONMENT,  DATA,  AND 
PROCEDURE  DIVISIONS,  respectively. 

Appendix  E  contains  a  composite  list  of  COBOL  reserved  words  in 
the  NETWORK  COBOL. 

6.5  Command  Syntax  Notation 

Notation  conventions  used  in  command  specifications  and  examples 
throughout  this  manual  are  listed  below. 
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Notation 


Description 


lowercase  letters 


CAPITAL  LETTERS 


[  D 


{} 


lowercase  letters  identify  an  element 
that  must  be  replaced  with  a  user-select¬ 
ed  value. 

CRndd  could  be  entered  as  CRA03. 


Capital  letters  must  be  entered  as  shown 
for  input,  and  will  be  printed  as  shown 
in  output. 

DPndd  means  "enter  UP  followed  by  the 
values  for  ndd." 


An  element  inside  brackets  is  optional. 
Several  elements  placed  one  under  the 
other  inside  a  pair  of  brackets  means 
that  the  user  may  select  any  one  or  none 
of  those  elements. 

[keym]  means  the  term  "KEYM"  may  be 
entered. 


Elements  placed  one  under  the  other  inside 
a  pair  of  braces  identify  a  required 
choice . 


means  that  either  the  letter  A  or 
the  value  of  id  must  be  entered. 


The  horizontal  ellipsis  indicates  that  a 
previous  bracketed  element  may  be  repeat¬ 
ed,  or  that  elements  have  been  omitted. 

name  ,name  .  .  .  means  that  one  or 
more  values  may  be  entered,  with 
a  comma  inserted  between  each  name 
value . 


The  vertical  ellipsis  indicates  that  com 
mands  or  instructions  have  been  omitted. 
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- 

1 

OPEN  MASTER- FILE. 

.  means  that  there 

.  are  one  or  more 

.  statements  omitted 

CLOSE  MASTER-FILE,  between  the  two 

commands . 

Numbers  and  special 
characters 

Numbers  that  appear  on  the  line  (i.e. , 
not  subscripts),  special  symbols,  and 
punctuation  marks  other  than  dotted  lines, 
brackets,  braces,  and  underlines  appear 
as  shown  in  output  messages  and  must  be 
entered  as  shown  when  input. 

(value)  means  that  the  proper  value 

must  be  entered  enclosed  in 
parentheses;  e.g.,  (234). 

subscripts 

Subscripts  indicate  a  first,  second,  etc., 
representation  of  a  parameter  that  has  a 
different  value  for  each  occurrence. 

name^,  name2»  namej  weans  that  three 
successive  values  for  name  should  be 
entered,  separated  by  commas. 

_ _ _ _ _ _ _ 1 

6.6  COBOL  Language  Structure 

6.6.1  Introduction;  COBOL  (the  COmmon  Business  Oriented  Program¬ 
ming  Language)  consists  of  selected  English  words  that  impart  key 
meanings  to  the  COBOL  compiler.  The  language  is  arranged  into  state¬ 
ments,  sentences,  and  paragraphs  in  a  manner  similar  to  written 
English.  The  words  of  this  language  are  selected  English  words 
(called  "reserved  words"  because  they  cannot  be  used  in  any  other 
context  and  are  listed  in  Appendix  E) ,  names  of  data  and  procedures, 
and  numeric  or  non-numeric  "literals".  Punctuation  is  permitted, 
but  the  only  meaningful  punctuation  symbol  is  the  period. 
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COBOL  words  are  arranged  into  statements  using  the  formats  de¬ 
scribed  in  this  manual  in  the  separate  discussion  of  each  statement. 
One  or  more  statements  compose  a  sentence,  which  is  terminated  by 
a  period.  One  or  more  sentences,  in  turn,  constitute  a  paragraph, 
which  can  be  given  a  name  so  that  control  can  pass  to  the  paragraph 
by  referencing  its  name  elsewhere  in  the  program.  Similarly,  several 
paragraphs  make  up  a  section  that  can  also  have  a  name  and,  in  addi¬ 
tion,  can  be  loaded  as  an  "overlay".  Several  sections  constitute  a 
division.  There  are  four  divisions  in  a  COBOL  program,  each  describ¬ 
ing  a  different,  important  part  of  the  program. 

Structural  hierarchy  of  the  COBOL  programming  language  and  the 
purpose  of  each  level  therein  are: 


The  COBOL  Program 


Division 


Section 


Paragraph 


Sentence 


id  jl ji:>  au  liic:  Alii,  uiiiid  v  lull 

required  to  perform  a  given  task 
on  the  computer. 

Describes  a  specific  category  of 
information  essential  to  the 
compiler;  or,  in  the  case  of  the 
PROCEDURE  DIVISION,  specifies 
processing  steps. 

In  the  PROCEDURE  DIVISION,  defines 
the  smallest  block  of  the  program 
that  can  be  loaded  at  one  time  or 
as  an  overlay,  in  other  divisions, 
groups  a  particular  type  of  infor¬ 
mation  within  a  division. 

Comprises  one  or  more  sentences 
forming  the  smallest  block  of  the 
program  that  can  be  referenced  by 
name . 

Consists  of  one  or  more  statements 
terminated  by  a  period. 
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Statement 


Consists  of  a  group  of  words  that 
perform  only  one  operation  or 
function  in  the  program. 


Word  Consists  of  a  group  of  characters 

and/or  symbols  that  provide  the 
structural  basis  of  a  statement. 


b.6.2  Character  Set:  The  complete  character  set  for  NETWORK  ANS 
COBOL  consists  of  the  51  characters  listed  below: 


Character 

0-9 

A-Z 


+ 


* 

/ 


$ 


( 

) 

> 


Meaning 
digits 
letters 
space  (blank) 
plus  sign 

minus  sign  (hyphen) 
asterisk 

stroke  (virgule,  slash) 

equals  sign 

currency  sign 

comma  (decimal  point) 

semicolon 

period  (decimal  point) 
double  quotation  mark 
left  parenthesis 
right  parenthesis 
greater  than  sign 


8b 


less  than  sign 

•  single  quotation  mark 

b.b.3  Characters  Used  for  Punctuat ion :  The  following  characters 
are  used  for  punctuation: 

Character  Meaning 

space 

,  comma 

;  semicolon 

.  period 

"  quotation  mark 

(  left  parenthesis 

)  right  parenthesis 

The  following  general  rules  of  punctuation  apply  in  writing  a 
COBOL  source  program: 

1.  When  any  punctuation  mark  is  indicated  in  a  format  in  this 
publication,  it  is  required  in  the  program. 

2.  At  least  one  space  must  appear  between  two  successive  words 
and/or  parenthetical  expressions  and/or  literals.  Two  or  more  suc¬ 
cessive  spaces  are  treated  as  a  single  space,  except  within  nonnumer¬ 
ic  literals. 

5.  An  arithmetic  operator  or  an  equal  sign  must  be  preceded  by 
a  space  and  followed  by  a  space.  A  unary  operator  may  be  preceded  by 
a  left  parenthesis. 

4.  A  comma  may  be  used  as  a  separator  between  successive  operand' 
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of  a  statement.  An  operand  of  a  statement  is  shown  in  a  format  as 
a  lower-case  word. 

5.  In  the  procedure  division,  a  semicolon  may  be  used  to 
separate  a  series  of  clauses.  An  example:  DATA  RECORD  IS  TRANS¬ 
ACTION;  RECORD  CONTAINS  80  CHARACTERS. 

6,6,4  Characters  Used  for  Editing:  Editing  characters  are  single 
characters  or  specific  two-character  combinations  belonging  to  the 
following  set: 


Character 

B 

0 

+ 

CR 

DB 

Z 

* 

$ 


(For  applications,  see 
numeric  edited  data  items  in 


Meaning 

space 

zero 

plus 

minus 

credit  (not  verified) 

debit  (not  verified) 

zero  suppression  (not  verified! 

check  protection  (not  verified) 

currency  sign  (not  verified) 

comma  (not  verified) 

period  (decimal  point) 

(not  verified) 

the  discussion  of  alphanumeric  edited  and 
"Data  Division",  Sections  6.18.0.4  and 


6.18.6.5) . 
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6.6.5  Characters  Used  for  Relation  Conditions:  A  relation  charac¬ 
ter  is  a  character  that  belongs  to  the  following  set: 

Meaning 
greater  than 
less  than 
equal  to 

Relation  characters  are  used  in  relation  conditions  (discussed 
in  "Procedure  Division"  Section  6.19.4.1).  The  word  NOT  may  precede 
the  relation  character. 

6.7  Words 

6.7.1  Definition  and  Application:  The  character  set  for  words  com¬ 
prises  37  characters:  the  letters  A  through  Z,  the  digits  0  through 
9,  and  the  hyphen.  A  word  is  composed  of  a  combination  of  not  more 
than  30  such  characters  chosen  from  this  set  with  the  following  excep¬ 
tions  : 

1.  A  word  cannot  begin  or  end  with  a  hyphen. 

2.  The  space  (blank)  is  not  an  allowable  character  in  a  word 
and  is  used  as  a  word  separator.  Where  a  space  (blank)  is  required, 
more  than  one  may  be  used  except  for  the  restrictions  stated  in  Sec¬ 
tion  6.14,  "Reference  format".  A  word  is  ended  by  a  space,  period, 
right  parenthesis,  comma,  or  semicolon. 

Rules  for  using  punctuation  characters  in  connection  with  words 

are: 

1.  If  ANS-68  compatibility  is  desired,  a  space  should  follow  a 


Character 

> 

< 
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period,  comma,  or  semicolon  when  one  of  these  punctuation  characters 
is  used  to  terminate  a  word,  and  a  space  should  not  immediately 
follow  a  left  parenthesis  or  immediately  precede  a  right  parenthesis. 

2.  A  space  must  not  immediately  follow  a  beginning  quotation 
mark  or  precede  an  ending  quotation  mark  unless  a  space  is  desired 
in  the  literal  (which  is  enclosed  in  quotation  marks). 

6.7.2  Data-Name:  A  data-name  is  a  word  with  at  least  one  non¬ 
numeric  character  that  names  a  data  item  in  the  DATA  DIVISION.  A 
space  (blank)  is  not  allowed  within  a  data-name,  and  ANS  COBOL 
reserved  words  must  not  be  used.  (See  appendix  E,  "NETWORK  ANS 
COBOL  Reserved  Words".) 

6.7.3  Procedure- Name:  A  procedure-name  is  either  a  paragraph-name 

or  a  section-name.  A  procedure-name  may  be  composed  solely  of  numeric 
characters.  However,  two  numeric  procedure-names  are  equivalent 
only  when  they  are  composed  of  the  same  number  of  digits  and  have  the 
same  value:  for  example,  0023  is  not  equivalent  to  25. 

6.7.4  Literal :  A  literal  is  a  string  of  characters  whose  value  is 
defined  by  the  set  of  characters  composing  the  literal.  Every  literal 
is  one  of  two  types:  non-numeric  or  numeric. 

A  non-numeric  literal  is  a  string  of  any  allowable  ASCII 
characters  (including  reserved  words,  but  excluding  the  quotation 
mark  character)  up  to  120  characters  in  length,  bounded  by  quotation 
marks.  The  double  quotation  mark  (")  is  used.  The  value  of  a  non¬ 
numeric  literal  is  the  string  of  characters  itself,  excluding  the 
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quotation  marks.  Any  spaces  enclosed  in  the  quotation  marks  are 
part  of  the  literal  and  therefore  part  of  the  value.  All  non¬ 
numeric  literals  are  classed  as  alphanumeric. 

A  numeric  literal  is  a  string  of  characters  selected  from  digits 
0  through  9  (to  a  maximum  of  15  digits),  the  plus  sign,  minus  sign, 
and  decimal  point.  The  value  of  a  numeric  literal  is  the  algebraic 
quantity  represented  by  the  characters  in  the  literal.  Lvery  numeric 
literal  is  classed  as  numeric. 

Rules  for  the  formation  of  numeric  literals  are: 

1.  The  literal  must  contain  at  least  one  digit. 

2.  The  literal  must  not  contain  more  than  one  sign  character. 

If  a  sign  is  used,  it  must  appear  as  the  leftmost  character  of  the 
literal.  If  the  literal  is  unsigned,  it  is  positive. 

3.  The  literal  must  not  contain  more  than  one  decimal  point. 

If  the  literal  contains  no  decimal  point,  it  is  an  integer. 

If  a  literal  conforms  to  the  rules  for  formation  of  numeric 
literals  but  is  enclosed  in  quotation  marks,  it  is  a  non-numeric 
literal,  i.c.,  alphanumeric,  and  is  treated  as  such  by  the  compiler. 

6.7.5  Figurative-Constants:  Figurative-constants  are  certain 
constants  to  which  fixed  data-names  are  assigned.  Such  data— names 
must  not  be  bounded  by  quotation  marks  when  used  as  figurative- 
constants.  Singular  and  plural  forms  of  figurative-constants  are 
equivalent  and  may  be  used  interchangeably. 

Fixed  data-names  and  their  meanings: 


ZliRO - Represents  the  value  0,  or  one  or 

ZfcROS  more  of  the  character  0,  depending 

ZORObS  on  context. 


SPACE - Represents  one  or  more  blank 

SPACES  spaces 

HIGH-VALUE - Represents  one  or  more  charact- 

HIGH-VALUES  ers  that  have  the  highest  value 

in  the  ASCII  collating  sequence. 


NOTE:  All  machines  except  Intel 

use  8  bit  characters.  Intel 
uses  7  bit  characters. 


LOW-VALUE - Represents  one  or  more  characters 

LOW-VALUES  that  have  the  lowest  value  in 

the  ASCII  collating  sequence. 

QUOTE - Represents  one  or  more  occurrences 

QUOTES  of  the  quotation  mark  character. 

The  word  QUOTE  cannot  be  used  in 


place  of  a  quotation  mark  in  a 
source  program  to  bound  a  non¬ 
numeric  literal. 

ALL  literal - Represents  one  or  more  of  the 

string  of  characters  comprising 
the  literals.  The  literal  must 
be  either  a  non-numeric  literal 
or  a  figurative-constant  other 
than  ALL  literal.  When  a  figur¬ 
ative-constant  is  used,  the 
word  ALL  is  redundant  and  is  used 
for  readability  only. 

When  a  figurative-constant  represents  a  string  of  one  or  more 
characters,  the  compiler  determines  the  length  of  the  string  from 
context  in  accordance  with  the  following  rules: 

1.  When  a  figurative-constant  is  associated  with  another  data 
item,  that  is,  when  the  figurative-constant  is  moved  to  or  compared 
with  another  data  item,  the  string  of  characters  specified  by  the 
figurative-constant  is  repeated- -character  by  character  on  the  right 
--until  the  size  of  the  resultant  string  is  equal  to  the  size  (in 
characters)  of  the  associated  data  item. 


2.  When  a  f igurative-constant  is  not  associated  with  another 
data  item,  that  is,  when  the  figurative-constant  appears  in  a 
DISPLAY  or  STOP  statement,  the  length  of  the  string  is  one  character. 
The  figurative-constant  ALL  literal  may  not  be  used  with  DISPLAY  or 
STOP. 

A  figurative-constant  can  be  used  wherever  a  literal  appears  in 
the  format,  except  that  whenever  the  literal  is  restricted  to  having 
only  numeric  characters. 

6.7.6  Reserved  Words:  Reserved  words  are  used  for  syntactical 
purposes  and  cannot  appear  as  user-defined  words.  (See  Appendix  E, 
"NETWORK  ANS  COBOL  Reserved  Words.")  The  three  types  of  reserved 
words  are  key  words,  optional  words,  and  connectives. 

6.7.7  Key  Words:  A  key  word  is  required  when  the  format  in  which 
the  word  appears  is  used  in  a  source  program.  Within  each  format 
such  words  are  uppercase  and  underlined.  The  three  types  of  key 
words  are: 

1.  Verbs  such  as  ADD  ,  READ  ,  and  PERFORM . 

2.  Required  words  (in  statement  and  entry  formats)  such  as  TO 
and  G IV I NG . 

3.  Words  that  have  a  specific  functional  meaning  such  as  NUMERIC 
and  SECTION. 

6.7.8  Optional  Words:  Within  each  format,  uppercase  words  that  are 
not  underlined  are  called  optional  words  and  can  appear  at  user 
discretion.  The  presence  or  absence  of  each  optional  word  within  a 
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format  does  not  alter  compiler  translation.  Misspelling  an  optional 
word  or  its  replacement  by  another  word  of  any  kind  is  not  allowed. 

6.7.9  Connectives:  The  two  types  of  connectives  are: 

1.  Qualifier  connectives  (used  to  associate  a  data-name  or  a 
paragraph-name  with  its  qualifier)  such  as  OF  and  IN. 

2.  Logical  connectives  (used  in  the  formation  of  conditions) 
such  as  AND,  OR,  AND  NOT,  and  OR  NOT. 

6.8  Concept  of  Computer- Independent  Data  Description 

To  make  data  as  computer  independent  as  possible,  characteristics 
or  properties  of  the  data  are  described  in  relation  to  a  Standard 
Data  Format  rather  than  an  equipment  orientated  format.  This  Standard 
Data  Format  is  oriented  to  general  data  processing  applications;  it 
uses  the  decimal  system  to  represent  numbers  (regardless  of  the  radix 
used  by  the  computer)  and  the  remaining  characters  in  the  COBOL 
character  set  to  describe  non-numeric  data  items. 

6.9  Logical  Record  and  File  Concept 

The  following  discussion  defines  file  information  by  distinguish¬ 
ing  between  the  physical  aspects  of  the  file  and  the  conceptual 
characteristics  of  the  data  contained  within  the  file. 

6.9.1  Physical  Aspects  of  a  File:  The  physical  aspects  of  a  file 
describe  data  as  it  appears  on  the  input  or  output  media  and  include 
such  features  as: 

1.  The  mode  in  which  the  data  file  is  recorded  on  the  external 
medium. 
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2.  The  grouping  of  logical  records  within  the  physical  limita¬ 


tions  of  the  file  medium. 

3.  Means  by  which  the  file  can  be  identified. 

6.9.2  Conceptual  Characteristics  of  a  File:  The  conceptual  charac¬ 
teristics  of  a  file  are  the  explicit  definition  of  each  logical  enti¬ 
ty  within  the  file  itself.  In  a  CiOHOL  program,  the  input  or  output 
statements  refer  to  one  logical  record. 

It  is  important  to  distinguish  between  a  logical  recoru  and  a 
physical  record.  A  i.CHOl.  logical  record  is  a  group  of  relateu  infor¬ 
mation,  uniquely  identifiable  and  treated  as  a  unit.  A  pnysical 
record  is  a  physical  unit  of  information  whose  size  and  recording 
mode  is  convenient  to  a  particular  computer  for  the  storage  of  data 
on  an  input  or  output  device.  The  size  of  a  physical  record  is  hard¬ 
ware-dependent  and  bears  no  direct  relationship  to  the  size  of  the 
file  contained  on  a  device. 

A  logical  record  can  be  contained  within  a  single  physical  unit 
or  it  may  require  more  than  one  physical  unit  to  contain  it.  There 
arc  several  source  language  methods  available  for  describing  the 
relationship  between  logical  records  and  physical  units.  Once  the 
relationship  is  establ ished, control  of  accessibility  of  logical  re¬ 
cords  as  relateu  to  the  pnysical  unit  is  the  responsibility  of  the 
object  program.  In  this  manual,  references  to  records  are  to  logical 
recorus  unless  the  term  "physical  record"  is  specif ieu. 

The  concept  of  a  logical  record  is  not  restricted  to  file  data 
but  applies  also  to  the  definition  of  working- storage  and  linkage 
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section.  Thus,  working-storage  and  linkage  section  items  may  be 
grouped  into  logical  records  and  defined  by  a  series  of  Record  De¬ 
scription  entries. 

6.9.5  Record  Concepts:  The  Record  Description  entry  consists  of  a 
set  of  Data  Description  entries  that  describe  the  characteristics  of 
a  particular  record.  bach  Data  Description  entry  comprises  a  level- 
number  followed  by  a  data-name  (if  required)  and  a  series  of  inde¬ 
pendent  clauses  (as  required). 

6.9.4  Concept  of  Levels:  A  level  concept  is  inherent  in  the  struc¬ 
ture  of  a  logical  record.  This  concept  arises  from  the  need  to 
specify  sub-divisions  of  a  record  for  the  purpose  of  data  reference. 
Once  a  subdivision  is  specified,  it  may  be  sub-divided  further  to 
permit  more  detailed  data  referencing. 

The  most  basic  subdivisions  of  a  record  -  that  is,  those  not 
further  sub-divided  -  are  called  elementary  items;  consequent ly ,  a 
record  consists  of  a  sequence  of  elementary  items,  or  the  record  it¬ 
self  may  be  an  elementary  item. 

For  ease  of  reference,  a  set  of  elementary  items  is  combined  in¬ 
to  a  group.  fcach  group  consists  of  a  named  sequence  of  one  or  more 
elementary  items.  These  groups,  in  turn,  may  be  combined  into  mul¬ 
tiples  of  two  or  more,  thus,  an  elementary  item  may  belong  to  more 
than  one  group. 

6.9.5  Level-Numbers:  A  system  of  level-numbers  shows  the  organiza¬ 
tion  of  elementary  items  and  group  items.  Since  records  are  the  most 
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inclusive  data  items,  leve 1 -numbers  for  records  start  at  01.  less 
inclusive  data  items  are  assigned  higher  (not  necessarily  successive) 
level -numbers  to  a  maximum  of  15.  Special  level-number  77,  is  an 
exception  to  this  rule  (see  below).  Separate  entries  are  written  in 
the  source  program  for  each  level-number  used. 

A  group  includes  all  group  and  elementary  items  following  it 
until  a  level-number  less  than  or  equal  to  the  level-number  of  that 
group  is  encountered.  The  level-number  of  an  item  (either  an  elemen¬ 
tary  or  a  group  item)  immediately  following  the  last  elementary  item 
of  the  previous  group  must  be  the  same  as  that  of  one  of  the  groups 
to  which  the  prior  elementary  item  belongs. 

Noncontiguous  working-storage  and  linkage  section  items  that  are 
not  sub-divisions  of  other  items  and  are  not  themselves  subdivided 
are  assigned  the  special  level-number  77. 

6.9.6  Initial  Values  of  Tables:  In  the  WORKING -STORAGE  SECTION, 
initial  values  of  elements  within  tables  are  specified  in  the  follow¬ 
ing  way: 

The  table  may  be  described  as  a  record  by  a  set  of  contiguous 
Data  Description  entries,  each  of  which  specifies  the  "value"  of  an 
element,  or  part  of  an  element,  of  the  table.  In  defining  the  record 
and  its  element  any  Data  Description  clause  (USAGE,  PICTURE,  etc.) 
may  be  used  to  complete  the  definition,  where  required.  This  form 
is  necessary  when  t lie  elements  of  the  table  require  separate  handling. 
The  hierarchical  structure  of  the  table  is  then  shown  by  the  use  of 
the  REDEFINES  entry  and  its  associated  subordinate  entries;  these 
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subordinate  entries,  which  arc  repeated  due  to  OCCURS  clauses,  must 
not  contain  VALUE  clauses. 

6.10  Algebraic  Signs 

Algebraic  signs  are  used  (1)  to  show  whether  the  value  of  an 
item  involved  in  an  operation  is  positive  or  negative,  and  (2)  to 
identify  the  value  of  an  item  as  positive  or  negative  on  an  editeu 
report  for  external  use. 

Most  forms  of  representation  have  a  standard  or  normal  manner 
of  depicting  an  operational  sign.  Thus,  an  indication  that  an  oper¬ 
ational  sign  is  associated  with  an  item  is  usually  sufficient.  Since 
some  forms  of  representation  allow  alternative  methods  for  depicting 
operational  signs,  it  is  possible  to  describe  certain  types  of  opera¬ 
tional  signs  that  deviate  from  the  normal  method.  Editing  sign  con¬ 
trol  characters  are  used  to  display  the  sign  of  an  item  and  arc  not 
operational  signs.  These  editing  characters  are  available  only 
through  the  use  of  the  PICTURE  clause. 

6.11  Uniqueness  of  Data  Reference 

Every  name  used  in  a  CCT.OL  source  program  must  be  unique,  that 
is,  no  other  name  may  have  the  identical  spelling. 

6.12  Indexing 

References  can  be  made  to  individual  elements  within  a  table  of 
like  elements  by  specifying  indexing  for  that  reference.  An  index 
is  assigned  to  that  level  of  the  table  by  using  the  INDEXED  bY  clause 
in  the  definition  of  a  table.  A  name  given  by  the  INDEXED  IVY  clause 
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is  known  as  an  index-name  and  is  used  to  refer  to  the  assignee  index. 
An  index-name  must  be  initialized  by  a  SF.T  statement  before  it  is 
used  as  a  table  reference.  (See  "Table-Handling  Statements",  Section 
6.19.9) 

The  index  can  be  represented  by  a  numeric  literal  that  is  an 
integer  or  by  an  index-name.  The  lowest  permissible  index  value  is 
1.  The  highest  permissible  index  value  in  any  particular  case  is 
the  number  of  maximum  occurrences  of  the  item  as  specified  in  the 
OCCURS  clause. 

The  indices,  or  set  of  indices,  that  identifies  the  table  ele¬ 
ment  is  enclosed  in  parentheses  immediately  following  the  table  ele¬ 
ment  data-name.  The  table  element  data-name  appended  with  a  sub¬ 
script  is  called  a  subscripted  data-name  or  an  identifier.  Ivhen  more 
than  one  subscript  appears  within  a  pair  of  parentheses,  the  sub¬ 
scripts  must  be  separated  by  commas. 

The  composite  format  of  a  subscri 
data-name  ^subscript-1 

The  composite  format  of  a  subscript  is: 

integer- 1 
index-name- 1 

The  following  are  the  restrictions  on  indexing  and  subscripting. 
Tables  may  have  one,  two,  or  three  dimensions.  Therefore,  references 
to  an  element  in  a  table  may  require  up  to  three  subscripts  or  index¬ 
es  . 

An  index  can  be  modified  only  by  the  SHT,  SEARCH,  and  PERFORM 
statements.  Data  items  described  by  the  USAGE  IS  INDEX  clause  permit 


pted  data-name  is: 
^subscript-2  Q  subscript 
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storage  of  the  values  of  the  index-names  as  data  without  conversion; 
such  data  items  are  called  index  data  items. 

6.13  Format  ho tat  ion 

The  format  of  a  COBOL  statement  is  described  in  this  manual 
using  the  uniform  notations  itemized  below.  (See  also  Command  Syntax 
Notation,  Section  0.3) 

1.  A  COBOL  reserved  wore,  printed  entirely  in  capital  letters, 
is  a  word  that  is  assigned  specific  meaning  in  the  COBOL  system.  It 
must  not  be  used  in  any  context  or  position  other  than  that  shown  in 
the  format  description.  SUBTRACT,  I-'ROM  and  ROUNULb  in  the  example 
below  are  reserved  words. 

2.  One  or  more  COBOL  elements  vertically  stacked  and  enclosed 
in  a  set  of  square  brackets  indicate  that  this  portion  of  the  syntax 
is  optional  and  may  be  included  or  omitted  at  the  discretion  of  the 
programmer . 

3.  A  pair  of  braces  is  used  to  enclose  vertically  stackcu  COBOL 
elements  when  one,  and  only  one,  of  the  elements  is  required;  the 
others  are  to  be  omitted.  Refer  to  the  example  below. 

4.  The  ellipsis  .  .  .  denotes  a  succession  of  operands  of  re¬ 
peated  COBOL  elements  that  may  be  used  in  the  same  particular  state¬ 
ment,  even  though  the  operands  or  elements  are  omitted  in  the  text. 

An  ellipsis  is  associated  with  the  last  complete  element  preceding  it, 
i.e.,  if  a  group  of  operands  and  key  words  are  enclosed  within  brack¬ 
ets  and  the  right  bracket  is  followed  by  the  ellipsis,  the  group  fanu 
not  merely  the  Last  operand)  may  be  repeated  in  its  entirety. 
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5.  An  underlined  word  is  required  unless  the  part  of  the  for¬ 
mat  containing  it  is  itself  optional  (enclosed  in  brackets).  If  a 
required  word  is  omitted  or  incorrectly  spelled,  it  causes  an  error 
in  the  interpretation  of  the  program. 

o.  All  COBOL  words  that  are  optional  words  (not  underlined) 
may  be  included  or  omitted  at  the  option  of  the  programmer.  These 
words  are  used  only  for  the  sake  of  readability;  misspelling,  how¬ 
ever,  constitutes  an  error. 

7.  Lowercase  words  represent  information  that  is  supplied  by 
the  programmer.  The  nature  of  the  information  required  is  indicated 
in  each  case.  In  most  instances  the  programmer  is  required  to  pro¬ 
vide  an  appropriate  data-name,  procedure-name,  literal,  etc.  Refer 
to  the  example  below. 

8.  The  period  is  the  only  required  punctuation.  Other  punc¬ 
tuation,  where  shown,  is  optional. 

9.  Special  characters  (such  as  the  equal  sign)  are  essential 
where  shown,  although  they  may  not  be  underlined. 

10.  The  notation  A  indicates  the  position  of  an  assumed  decimal 
point  in  an  item. 

11.  A  numeric  character  with  a  plus  or  minus  sign  above  it  (^) 
indicates  that  the  value  of  the  item  ltas  an  operational  sign  that  is 
stored  in  combination  witli  the  numeric  character. 

12.  Character  positions  in  storage  are  shown  by  boxes  A  U  f  C  L) 

An  empty  box  means  an  unpredictable  result. 

13.  The  symbol  A  indicates  a  space  (blank). 
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The  following  example  shows  a  typical  COBOL  statement  ana  use 


6.14.1  General  Description:  The  reference  format,  which  provides  a 
method  for  describing  COBOL  source  programs,  is  described  in  terms 
of  character  positions  or  columns  on  a  CRT  line.  The  line  may  be  up 
to  80  characters  in  length.  Rules  for  spacing  given  in  the  discus¬ 
sion  of  the  reference  format  take  precedence  over  all  other  rules 
for  spacing.  Division  of  a  source  program  is  ordered  as  follows: 
the  IDE- NT  If  I  CAT  I  ON  DIVISION,  then  the  F.NV  IRONMLNT  DIVISION,  then  the 
DATA  DIVISION,  then  the  PROCCDURE.  DIVISION.  inch  division  must  be 
written  according  to  the  rules  for  the  reference  format. 

The  standard  COBOL  line  format  is  as  follows: 

Columns  1-6  six  digit  sequence  number 

Column  7  continuation  area 

Columns  8-11  area  A 

Columns  12-72  area  B 

Columns  73-80  identification  area 

The  MICROSOFT  COBOL  uses  this  format.  The  Data  General  COBOL 
may  use  this  card  format,  but  the  preferred  format,  called  CRT  format, 
eliminates  the  sequence  number  field  and  uses  free  format  for  the 
remaining  fields  : 
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Column  1 

Columns  2-81) 

The  M6800  COBOL  programs  use 
Columns  1-4 
Column  6 
Columns  7-10 
Columns  11-71 

Conversion  programs  between 
are  available. 


Area  A,  Continuation  (hyphen 
character),  comment  indicator  (*). 

Area  B. 

the  format: 

four  digit  line  number 
continuation  area 
area  A 
area  B 

these  formats  have  been  written  and 


6.14.2  Reference  Format  Representation: 


Margin  1,  designates  the  line  number  area. 

Margin  C  represents  the  continuation  column.  An  * 

(asterisk)  in  margin  C  causes  the  compiler  to 
treat  the  entire  line  as  a  comment  line.  A  / 
(slash)  in  Margin  C  will  cause  the  compiler  to 
start  printing  the  source  program  on  the  top 
of  a  new  page.  The  remainder  of  the  line  is 
treated  as  a  comment.  A  -  (hyphen)  in  Margin  C 
is  used  to  continue  a  non-numeric  literal  from 
one  line  to  the  next. 


Margin  A  represents  the  first  column  in  the  coding  area, 
or 

Area  A 


Margin  B  represents  the  second  area  in  coding  portion  of 
or  the  line. 

Area  B 


(1.14.5  Continuation  of  Non-Numeric  Literals:  When  a  non-numeric 


literal  is  continued  from  one  line  to  another,  a  hyphen  is  placed  in 


Margin  (.'  of  the  continuation  line  and  a  quotation  mark  is  placed  in 
Area  B  following  the  hyphen.  All  spaces  at  the  end  of  the  continued 
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line  and  any  spaces  following  the  quotation  mark  of  the  continuation 
line  and  preceding  the  final  quotation  mark  of  the  literal  are 
considered  part  of  the  literal.  Note  that  each  line  in  tins  system 
is  terminated  by  a  carriage  return.  If  it  is  desired  that  additional 
spaces  are  to  be  included  at  the  end  of  the  continued  line,  they 
must  actually  be  typed  in. 

fa. 14. 4  Division,  Section,  and  Paragraph  Formats: 

Division  Header.  The  division  header  must  be  the  first  line  of 
a  division  reference  format.  The  division  header  starts  in  Margin 
A  with  the  d iv i s ion- name  followed  by  a  space,  the  word  DIVISION,  and 
a  period.  No  other  text  may  appear  on  the  same  line  as  the  division 
header. 

Section  Header.  The  section  header  begins  on  any  line  except 
the  first  line  of  a  division  reference  format.  The  section  header 

starts  in  Area  A  with  the  section-name  followed  by  a  space,  the 

word  SECTION,  and  a  period  followed  by  a  'pace.  No  other  text  may 

appear  on  the  same  line  as  the  section  header. 

A  section  consists  of  paragraphs  in  the  ENVIRONMENT  and  PROCEDURE 
DIVISION,  and  Data  Description  entries  in  the  DATA  DIVISION.  Paragraph- 
names  but  not  section-names  are  permitted  in  the  IDENTIFICATION 
DIVISION. 

Paragraph-Name  and  Paragraphs.  The  name  of  a  paragraph  starts 
in  Area  A  of  any  line  following  the  first  line  of  a  division  reference 
format  (or  section  header  if  sections  are  used)  and  ends  with  a  period 
followed  by  a  space. 


104 


A  paragraph  consists  of  one  or  more  successive  sentences.  The 
first  sentence  in  a  paragraph  begins  in  Area  B  of  either  the  same 
line  as  the  paragraph-name  or  the  line  immediately  following. 
Successive  sentences  begin  either  in  Area  B  of  the  same  line  as  the 
preceding  sentence  or  in  Area  B  of  the  next  line. 

A  sentence  consists  of  one  or  more  statements  followed  by  a 
period  and  a  space.  When  the  sentences  of  a  paragraph  require  more 
than  one  line,  they  may  be  continued  on  successive  lines. 


6.14.5  DATA  DIVISION  Entries:  Each  DATA  DIVISION  entry  begins  with 
a  level  indicator  or  a  level-number  followed  by  at  least  one  space, 
the  name  of  a  data  item,  and  a  sequence  of  independent  clauses 
describing  the  data.  The  last  clause  of  an  entry  is  always  terminated 
by  a  period  followed  by  a  space. 

There  are  two  types  of  DATA  DIVISION  entries:  those  that  begin 
with  a  level  indicator  and  those  that  begin  witli  a  level-number. 

BT>  is  a  level  indicator.  In  DATA  DIVISION  entries  that  begin 
with  a  level  indicator,  the  level  indicator  begins  in  Area  A, 
followed  by  its  associated  file-name  and  appropriate  descriptive 
information  in  Area  B. 

DATA  DIVISION  entries  that  begin  w'ith  level -numbers  are  called 
Data  Description  entries.  A  level-number  may  be  one  of  the  following 
set:  1  through  15,  77.  Level -numbers  less  than  10  are  written  as 

zero  followed  by  a  digit.  At  least  one  space  must  separate  a  level- 
number  from  the  word  succeeding  it.  In  DAT  4  DIVISION  entries  that 
begin  with  a  Data  Description  entry,  the  first  Data  Description  entry 


starts  with  a  level-number  in  Area  A,  followed  by  the  descriptive 
information  in  Area  B. 

6.15  COBOL  Input/Output  Processing 

0.1S.1  COBOL  Files:  NIiTWORK  ANS  COBOL  supports  sequential  and 
indexed  sequential  file  organizations  and  all  access  methods  appropri¬ 
ate  for  these  organizations. 

6.15.2  File  Organization: 

6.15.2.1  Indexed  file  Organization :  Indexed  files  are  those  in 
which  each  record  is  associated  with  an  identifying  key.  Indexed 
files  may  be  accessed  directly  or  sequentially;  however,  they  must 

be  assigned  to  input/output  devices  capable  of  direct  access.  Indexed 
file  organization  is  indicated  in  the  COBOL  language  by  the  statement 
ORGANIZATION  IS  INDLXLl)  in  the  FILL- CONTROL  paragraph  of  the  LNVIKON- 
MLNT  DIVISION. 

6.15.2.2  Sequential  File  Organization:  A  sequential  file  is  one 
whose  records  are  organized  in  a  consecutive  manner.  There  is  no 
identifying  key  associated  with  each  record;  therefore,  records  can 

be  accessed  sequentially  only.  Consecutive  files  may  be  assigned  to 
any  type  of  input/output  device.  Consecutive  file  organization  is 
indicated  when  ORGANIZATION  IS  SLQULNTIAL  is  written  or  when  the 
ORGANIZATION  clause  is  omitted  altogether. 

6.15.3  File  Access:  The  three  methods  of  accessing  files  are 
sequential,  random,  and  dynamic. 

6.15.3.1  Sequential  Access:  Sequential  access  is  the  technique 
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of  referencing  records  serially  within  a  file.  The  order  in  which 
records  are  read  or  written  is  determined  implicitly  by  relative  phys¬ 
ical  position  within  the  file.  This  access  method  is  specified  by 
the  ACCESS  MODE  IS  SEQUENTIAL  clause  or  it  is  implied  by  the  omission 
of  that  clause. 

6.15.3.2  Random  Access:  Random  access  is  the  technique  of 
reading  and  writing  records  of  a  file  in  an  order  dictated  by  the 
programmer.  It  may  only  be  used  with  ORGANIZATION  IS  INDEXED  files. 
The  record  to  be  referenced  is  indicated  by  the  value  of  a  key  at 
the  time  that  the  input/output  command  is  issued.  This  access 
method  is  specified  by  the  ACCESS  MODE  IS  RANDOM  clause.  The  RECORD 
KEY  clause  specifies  the  key. 

6.15.5.3  Dynamic  Access:  Dynamic  access  mode  allows  the  file 
to  be  accessed  either  sequentially  or  randomly  depending  upon  the  I/O 
statement.  It  may  only  be  used  with  files  having  ORGANIZATION  IS 
INDEXED.  This  access  mode  is  specified  by  the  ACCESS  IS  DYNAMIC 
clause.  The  RECORD  KEY  clause  is  also  required. 

6.15.4  Record  Keys:  Files  having  an  indexed  organization  may  access 
their  records  both  sequentially  and  by  a  user  specified  key.  The 
variable  used  as  the  key  is  specified  by  the  RECORD  KEY  clause.  The 
format  of  this  clause  is: 

RECORD  KEY  IS  data-name-1 

where  data-name-1  is  an  alphanumeric  data  item  with  no  more  than  8 
ciiaracters.  If  uata-name-1  has  fewer  than  8  characters,  it  should  be 
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followed  by  a  filler  data  item  with  enough  characters  such  that  the 
number  of  characters  in  the  filler  and  data-name-1  sum  to  8.  This 
restriction  is  entirely  the  result  of  the  M68U0  file  management 
system. 

6.15.5  File-Handling  Methods:  A  file-handling  method  is  the  effect 
of  the  combination  of  access  technique,  file  organization,  and  the 
manner  in  which  the  file  is  opened. 

6.15.5.1  Sequential  Access: 

1.  OPEN  OUTPUT.  This  combination  creates  a  consecutive  file. 

The  new  records  replace  any  previous  contents  of  the  file. 

2.  CPLN  EXTEND.  New  records  will  be  added  to  the  end  of  a 
consecutive  file. 

3.  OPEN  INPUT.  If  the  file  organization  is  sequential,  REAL) 
statements  obtain  records  serially  in  the  order  in  which  they  were 
originally  written.  If  the  file  organization  is  indexed,  REAP 
statements  obtain  records  serially  in  key  value  order  (not  necessarily 
in  the  order  in  which  they  were  written). 

6.15.5.2  Random  Access: 

1.  Ol’LN  OUTPUT.  This  combination  creates  an  indexed  file.  A 
RECORD  KEY  must  be  specified  and  its  contents  consulted  upon  eacn 
WRITE  statement. 

2.  OPEN  INPUT.  Organization  of  the  file  must  be  indexcu.  A 
RECORD  KEY  must  be  specifieu  and  the  contents  consulted  for  eacn 
REAL)  statement  to  locate  the  desired  record  within  the  file. 
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3.  OPEN  INPUT- OUTPUT.  The  sole  essential  difference  between 
OPJiN  INPUT  and  OPEN  INPUT- OUTPUT  is  that  the  latter  permits  the  file 
to  he  updated  instead  of  merely  referenced;  thus,  WRITE  statements 
are  allowed  to  address  the  file. 

b.lS.b  Input/Output  Processing  Summary:  Table  4  summarizes  the 
COBOL  language  file  manipulation  statements.  bach  file  must  be  named 
in  an  ENVIRONMENT  DIVISION  SELECT  sentence  and  defined  by  an  FD  entry 
in  tiie  DATA  DIVISION.  Each  of  the  language  elements  concerned  is 
described  fully  in  succeeding  chapters  of  this  manual. 

b.lb  IDENTIFICATION  DIVISION 

6.  lfi.l  General  Description;  The  format  of  the  IDENTIFICATION 
DIVISION  is: 

IDENTIFICATION  DIVISION. 

PROGRAM- ID .  program-name. 

AUTHOR .  comment  -  sentences . 

INSTALLATION.  comment-sentences. 

DATE-WRITTEN,  comment-sentences. 

DATE- COM  PI  LED.  comment  -  sentences . 

SECURITY,  comment  -  sentences . 

The  IDENTIFICATION  DIVISION  specifies  information  essential  to 
identification  such  as  the  name  of  the  program,  the  date  the  program 
was  written,  programmer’s  name,  security,  etc.  The  listing  contains 
all  information  specified  in  this  division,  but  the  specified  infor- 
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mation  in  no  way  affects  the  object  program.  Allowable  information 
is  presented  in  seven  separate  paragraphs:  one  mandatory,  the  others 
optional.  if  the  optional  paragraphs  are  included  in  the  program, 
they  must  be  in  the  order  indicated  above. 

6.16.2  Organization:  The  IDENTIFICATION  DIVISION  header  is  always 
the  first  line  in  a  source  program  and  appears  as  shown  above,  in¬ 
cluding  the  punctuation.  This  header  and  tie  fixed  paragraph-name (s) 
must  conform  to  COBOL  Coding  Sheet  specifications.  Only  the  PROCRAM- 
II)  paragraph  is  mandatory;  all  others  are  optional.  Comment  -  sentences 
for  the  optional  paragraphs  consist  of  any  sentence  or  croup  of  sen¬ 
tences  . 

6.16.3  PROGRAM- II)  Paragraph:  The  PROGRAM-  ID  paragraph  must  always 
appear  as  the  first  paragraph  in  the  IDENTIFICATION  DIVISION.  This 
paragraph  permits  the  programmer  to  declare  the  name  of  the  source 
program . 

6.16.4  DATE-COMPILED  Paragraph:  The  DATE-COMPILED  paragraph  should 
be  used  to  provide  the  compilation  data  in  the  source  program  listing. 

Example:  The  IDENTIFICATION  DIVISION  of  a  typical  program  might 

be  written: 

IDENTIFICATION  DIVISION 
PROO, RAM- ID.  Inventory 

AUTHOR.  John  Smith 
DATE- WRITTEN.  October  15,  1 977. 

DATE-COMPILED.  November  1,  1977. 


no 


REMARKS.  This  program  prints  the  inventory  report 


Table  4.  bile  Manipulation  Statements 


File 

Organization 

ACCESS 

MODE  IS 

HQSQElfli 

■ 

PERMISSIBLE 

I/O  Statement 

RECORD 

KEY 

Required 

INPUT 

READ.  .  . 

AT  END 

No 

Sequential 

SEQUENTIAL 
Tor  unspe- 
cif ied) 

OUTPUT 

WRITE.  .  . 

BEFORE 

AFTER  ADVANCING 

No 

EXTEND 

write:.  .  . 

No 

START.  .  .  INVALID 

KEY 

INPUT 

READ  .  .  . 

AT  END 

Yes 

Indexed 

SEQUENTIAL 
(or  unspe¬ 
cified) 

OUTPUT 

WRITE.  .  .  INVALID 

KEY 

Yes 

I/O 

START.  .  .  VALID 

KEY 

READ.  .  .  AT  END 

WRITE.  .  .  INVALID 

KEY 

Yes 

REWRITE.  .  .  INVALID 
KEY 

DELETE.  .  .  INVALID 
KEY 
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File 

Organization 


ACCESS 
MODE  IS 


PERMISSIBLE 
I/O  Statement 


Indexed 


Indexed 


RANDOM 

INPUT 

READ.  .INVALID 

KEY 

OUTPUT 

WRITE  . INVALID 

KEY 

I/O 

READ.  .INVALID  KEY 

WRITE  .INVALID  KEY 

REWRITE  .INVALID  KEY 

DELETE.  . INVALID  KEY 

INPUT 

START  .INVALID 

KEY 

READ.  .INVALID 

KEY 

READ  NEXT.  .AT 

END 

DYNAMIC 

OUTPUT 

WRITE  .INVALID 

KEY 

START  .INVALID 

KEY 

READ.  .INVALID 

KEY 

READ  NEXT.  .AT 

END 

I/O 

WRITE  .INVALID 

KEY 

REWRITE  .INVALID  KEY 

DHLI-TIi.  .  INVALID  KHY 

6.17  ENVIRONMENT  DIVISION 


6.17.1  General  Description:  The  format  of  the  ENVIRONMENT  DIVISION 
is : 

environment  division. 

CONFIGURATION  SECTION. 

SOURCE- COMPUTER .  source-computer  entry. 

OBJECT- COMPUTER.  object-computer  entry. 

INPUT- OUTPUT  SECTION. 

F I LE-CONTROL.  file-control  entry. 

I -0- CONTROL.  input/output  control  entry. 

The  ENVIRONMENT  DIVISION  describes  those  aspects  of  the  data 
processing  program  that  depend  on  the  physical  characteristics  of  a 
specific  computer.  The  information  presented  in  this  division  en¬ 
ables  the  compiler  to  link  the  operations  indicated  in  the  DATA  and 
PROCEDURE  DIVISIONS  to  tiie  physical  aspects  of  computer  hardware  and 
the  executive  system  that  is  to  execute  the  object  program.  Thus, 
the  ENVIRONMENT  DIVISION  is  entirely  computer-oriented  and  changes 
for  each  of  the  machines  on  the  network. 

The  ENVIRONMENT  DIVISION  is  divided  into  the  CONFIGURATION 
SECTION  and  the  INPUT- OUTPUT  SECTION. 

The  C0NF1GURATI ON  SECTION  deals  with  the  characteristics  of  the 
computing  system  on  which  the  source  program  is  to  be  compiled  anu  on 
which  the  object  program  is  to  operate.  This  section  is  divided  into 
two  paragraphs:  the  SOURCE- COMPUTER  paragraph  describing  the  computer 
on  which  the  COBOL  compiler  is  to  run  and  the  OBJ ECT- COMPUTER  para- 


113 


graph  defining  the  computer  on  which  the  translated  program  is  to  run. 

The  INPUT-OUTPUT  SECTION  provides  information  needed  to  control 
transmission  and  handling  of  data  between  external  media  and  the  ob¬ 
ject  program.  There  are  two  fixed  paragrupn  names  in  this  section: 
the  FILE-CONTROL  paragraph,  naming  and  associating  the  files  with 
external  media  and  the  I/O  CONTROL  paragraph  specifying  certain  other 
file  information. 


6.17.2  Configuration  Section: 

6.17.2.1  SOURCE- COMPUTER  Paragraph:  The  format  of  this  para¬ 
graph  is: 


SOUR  Cl: -COMPUTER.  computer  name. 

The  SOURCE-COMPUTER  paragraph  enables  t lie  programmer  to  describe 
to  the  compiler  tiie  computing  system  on  which  source  program  transla¬ 
tion  is  to  take  place.  The  rules  for  computer-name  are: 


MACHINE 


COMPUTER-NAME  ENTRY 


M6800 

Intel  MICROSOFT 
Data  General  CS-2U 


Treated  as  comment.  M680U  recommend¬ 
ed 

Treated  as  comment.  Intel  8080 
recommended . 

CS  -20 


6.17.2.2  OBJECT- COMPUTER  Paragraph:  The  format  of  this  para¬ 


graph  is: 


OBJECT- COMPUTER 

computer -name  (MEMORY  SIZE.  integer  CllARAC’l  ER5) 
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The  rules  for  the  contents  of  the  OBJECT-COMPUTER  paragraph  are 


the  same  as  for  the  SOURCE-COMPUTER  paragraph. 

b.17. 5  The  INPUT/OUTPUT  Section: 

The  INPUT- OUTPUT  section  consists  of  the  FILE-CONTROL  and  1/C 
CONTROL  paragraphs. 

6.17.3.1  File  Control  Paragraph:  The  format  of  the  File  Control 
paragraph  is: 

FILL -CONTROL. 

SLLLCT  sentences 

The  format  and  meaning  of  the  SLLLCT  sentence  varies  among  the 
machines . 

6.17.3.1.1  SLLLCT  Sentence  for  M6800  COBOL: 

SLLLCT  file-name-1  j(  ASSIGN- clause)|  j(  ORG  ANI  Z  ATI  ON-c  lause 

j(  ASSIGN- clause  Y  ¥  RECORD-  KEY -clause) 

Each  file  defined  in  the  FILL  SECTION  of  the  DATA  DIVISION 
must  he  named  once  and  only  once  as  file-name- 1  in  a  SLLLCT  sentence. 
Each  select  file  must  have  a  File  Description  entry  in  the  DATA 
DIVISION. 

The  following  clauses  that  compose  the  SELECT  sentence  are 
all  optional;  except  for  the  ASSIGN  clause,  they  may  be  written  in 
any  order. 

ASSIGN  Clause.  The  format  of  this  required  clause  is  : 

(ASSIGN  TO  implementor-name- 1 ) 

The  ASSIGN  clause  permits  a  file  to  he  associated  with  a 
particular  type  of  hardware  device. 
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Acceptable  implementor-names  are: 


PR  INTI R 

DISK  diskid : number 

V.'here:  diskid  -  -represents  an  eight  character  disk  file. 

identification  number- -represents  the  file  number 
for  the  suffix  for  Flic  diskid. 

('Refer  to  the  COBOL  operations  reference  manual  for  an 
explanation  of  the  meaning  of  diskid:  number  as  related  to  different 
disk  types . ) 

ORGANIZATION  Clause.  'Die  format  of  this  clause  is: 

SLQUhNTI AL 

AC0LSS  MODli  IS  RANDOM 
DYNAMIC 

SLOULNTIAL  denotes  that  records  are  obtained  or  placed 
equcntially:  that  is,  the  next  logical  record  is  available  from 

the  file  on  a  ROAD  statement  execution,  or  a  specific  logical  record 
is  placed  in  the  next  position  in  the  file  on  a  WRIT!:  statement 
execution. 

If  RANDOM  or  DYNAMIC  is  specified,  the  KLCORD  KLY  clause 
(see  below)  must  also  be  specified  and  the  file  must  be  assigned  to 
a  direct-access  device.  In  this  case,  the  specified  logical  record 
(located  using  RLCCRD  KLY  data-name  contents)  is  made  available  from 
tiie  file  on  a  Rl.AD  statement  execution,  or  is  placed  in  a  specific 
location  on  the  file  (located  using  RLCCRu  kl.Y  data-name  contents) 
on  a  WRITL  statement  execution.  DYNAMIC  access  mode  differs  from 
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RANDOM  access  mode  in  that  tne  file  may  be  accessed  sequentially  or 
randomly,  depending  on  the  I/O  statement.  That  is,  after  a  record 
is  located  by  a  random  read,  the  records  following  it  can  be  read 
sequentially.  Another  random  read  can  then  be  issued  to  switch  back 
to  random  access. 

Sequential  access  is  assumed  when  these  clauses  are  omitted. 

RECORD  kh Y  clause.  The  format  of  this  clause  is: 

RECORD  KEY  IS  data-name  WITli  DUPLICATES 

The  RECORD  KEY  clause  must  be  specified  if  INDEXED  organ¬ 
ization  is  specified;  it  is  not  meaningful  to  SEQUENT  I AI.  organization. 
Data-name  must  be  contained  within  the  record.  In  addition,  it  must 
conform  to  the  rules  for  the  file  management  system  outlined  in  the 
COBOL  operations  reference  manual. 

The  contents  of  data-name  are  used  by  the  READ  and  hRITL 
statements  to  locate  a  specific  record  in  a  mass  storage  file.  The 
symbolic  identity  of  the  record  to  be  read  or  written  must  be  placed 
in  data-name  before  the  appropriate  input/output  statement  is  executed 

The  optional  WlTh  DUPLICATES  clause  specifies  that  records 
with  duplicate  keys  are  to  be  permitted  in  the  file. 

fa. 17. 5. 1.2  SLEECT  Sentence  MICROSOFT  Inte1  8US0  COBOL: 

fa. 17. 5. 1.2.1  Sequential  Files:  For  each  file  having 
records  described  in  the  Data  Division's  File  Jection,  a  Sentence- 
hntry  (beginning  with  the  reserved  word  SELECT)  is  required  in  the 
E I LE- COM  'KOI.  paragraph.  I  he  format  of  a  Select  Sentence-Entry  for 

I  1  7 


a  sequential  file  is: 


SLLI.CT  file-name  ASSIGN  TO  DISK  J  PRINTER 

( R 1  SI  RVi;  integer  ARhAS  ^  ARI  A) 

(Till.  STATUS  IS  data -name  - 1 ) 

(ACCLSS  MODI.  IS  SFQUF.NTI  AI.)  (ORGANIZATION  IS 

S 101J 1  NT  I  Aj. )  . 

Ail  phrases  after  "StLLCT  file-name"  can  he  in  any 
order.  noth  the  ACCLSS  and  ORGANIZATION  clauses  are  optional  for 
sequential  input-output  processing.  Tor  Indexed  or  Relative  files, 
alternate  formats  are  available  for  this  section,  and  are  explained 
in  the  sections  on  Inuexed  and  Relative  files  (6.12-0.14). 

If  the  RlSbRVL  clause  is  not  present,  the  compiler 
assigns  buffer  areas.  An  integer  number  of  buffers  spccifieu  by  the 
Reserve  clause  may  be  from  1  to  7 ,  but  any  number  over  2  is  treateu 
as  2 . 

In  the  FILL  STATUS  entry,  data-naine-1  must  refer  to 
a  two-character  Uorking-Stor age  or  Linkage  item  of  category  alpha¬ 
numeric  into  which  the  run-time  data  management  facility  places  status 
information  after  an  I/O  statement.  The  left-hand  character  of  data- 
name-1  assumes  tne  values: 

' 0 '  for  successful  completion 

’ 1 '  for  Lnu-of-lile  condition 

'2'  for  Invalid  Key  (only  for  Indexed  and  Relative  files) 

'5'  for  a  non-recoverable  (I/C)  error 

'9'  for  implementor-related  errors  (see  User's  Guiue) 
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The  right-hand  character  of  data-name-1  is  set  to  'O' 


if  no 

further  status 

information 

exists  for 

the  previous  I/O  opera 

tion. 

The  following 

combinations 

of  values 

are  possible: 

File 

Status  Left 

File  Status 

Right  Meaning 

'()' 

’O’ 

0-K. 

'  1 ' 

'O' 

LGF 

•3' 

'0' 

Permanent  error 

'5' 

>4' 

Disk  space  full 

For  values  of  status-right  when  status-left  has  a 
value  of  '2',  see  the  Sections  on  Indexed  or  Relative  files  (0.12 


0.14)  . 


0.17.3.1.2.2  Indexed  Sequential  Files:  For  an  Index¬ 
ed  file  organization,  the  SLLLCT  entry  must  specify  ORG ANI Z ATI ON  IS 
INDI.XI.D ,  and  the  AC.Q.SS  clause  format  is: 


ACCLSS  MODI.  IS  SFQUFMIAL  RAN  DIM  DYNAMIC 


A  file  whose  organization  is  iridexeu  can  be  accessed 
either  sequentially,  dynamically  or  randomly. 

Sequential  access  provides  access  to  data  records  in 
ascending  order  of  RLCIRP  K1Y  values. 

In  the  random  access  mode  ,  the  order  of  access  to 
records  is  controlled  by  the  programmer.  bach  record  desired  is  ac¬ 
cessed  by  placing  tne  value  of  its  key  in  a  key  data  item  prior  to 
an  access  statement. 

In  tne  dynamic  access  mode,  the  programmer's  logic  may 
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change  from  sequential  access  to  random  access,  and  vice  versa,  at 
will. 

(>.17.3.1.2.3  Rj CORD  KTY  (Clause:  The  general  format 
of  this  clause,  when  required,  is: 

1<  T  (  CRD  K 1  .V  IS  data  - name-1 

where  data-name-1  is  an  item  defined  within  the  record  descriptions 
of  the  associated  file  description,  and  is  a  group  item,  an  elemen¬ 
tary  alphanumeric  item  or  a  decimal  field.  A  decimal  key  must  have 
no  P  characters  in  its  PICTURl!,  and  it  may  not  have  a  ShPARATh  sign, 
No  record  key  may  he  subscripted. 

If  random  access  mode  is  specified,  the  value  ol  uata- 
name-1  designates  the  record  to  be  accessed  hv  the  m  xt  bhl.Fl  h  ,  RlAh, 
R1. WRIT!  or  WRIT!  statement.  Lach  record  must  have  ;i  unique  record 
key  value. 

6,17.3.1,2  .4  file  Status  Reporting:  If  a  HIT.  STA'l US 
clause  appears  in  the  TMV1RPNMTNT  DIVISION  for  an  Indexed  organization 
file,  the  designated  two-character  data  item  is  set  after  every  I/O 
statement.  The  following  table  summarizes  the  possible  settings. 

Status  Data  ^ _ Status  Data  Item  RIGHT  Character _ 

Item  1.1FT  No  Further  Sequence  Dupl  icatc  No  "Record  Disk  Space 

Character  Description  Drror  Kcv  Found  full 

(")  U)  (2)  (3)  [41 


Successful 

Completion  (0)  X 


At  I.nd  ( 1 )  X 


1  20 


Invalid 
Key  (2) 


X 


X 


X 


X 


Permanent 

Error  (5)  X 


Sequence  error  arises  if  access  mode  is  sequential 
when  WRITES  do  not  occur  in  ascending  sequence  for  an  Indexed  file, 
or  the  key  is  altered  prior  to  RKWRITF  or  an  unsuccessful  READ  pre¬ 
ceded  a  DELETE  or  REWRITE.  The  other  settings  are  self-explanatory. 
The  left  character  may  also  be  '9'  for  implementor-defined  errors; 
see  the  User's  Guide  for  an  explanation  of  these. 

Note  that  "Disk  Space  Full"  occurs  with  Invalid  Key 
(2)  for  Indexed  and  Relative  file  handling,  whereas  it  occurred  witn 
"Permanent  Error"  (5)  for  sequential  files. 

If  an  error  occurs  at  execution  time  and  no  AT  END  or 
INVA1.II)  KEY  statements  arc  given  and  no  appropriate  declarative 
ERROR  section  is  supplied  and  no  FILE  STATUS  is  specified,  the  error 
will  he  displayed  on  the  Console  and  the  program  will  terminate. 

6.17.5.1,5  SELECT  Sentence  for  Data  General  CS-20:  SELECT 
names  internal  program  files  and  associates  each  one  with  a  given 
hardware  device  and  external  file  name.  Also,  logical  file  organiza¬ 
tion,  access  method,  I/O  status  and  keys  may  be  defined  if  required 
by  the  program.  Refer  to  Figure  0.1  for  examples  of  the  SELECT  state¬ 
ment. 

If  the  external  file-name  option  is  omitted  from  the  SELECT 
statement,  the  system  file-names  are  supplied  hv  default.  Refer  to 
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the  following  table  for  a  list  of  the  default  file-names. 


Device 


Terminal 

Terminal 


SYSTEM  FILE- NAMES 


Fi le- name 


PRINTER  $  LPT 

PRINTER- 1  SSLPT1 

KEYBOARD  $TT1 

DISPLAY  $TTO 

DISK  The  first  ten  characters  of  the 

internal  (COBOL)  file-name  with 
deleted. 


i 

< 
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0.17.3.1,3.1  Sequential  SELECT: 


SELECT  file-name  ASSIGN  TO 


DISK 
PTFniTLR 
rnM-i! 
DISP LAY 
KE.YbQaRD 


(;  ORGANIZATION  IS  SEQUENTIAL) 

(;  AccESs  mQDe  is  sequential) 

( ; FTTFTTATUS  IS  data -name) 

( ;DATA  SIZE  IS  integer). 


(.id-lit) 


6.17.3.1.3.2  Indexed  SELECT: 


SELECT  file-name  ASSIGN  TO  DISKf. id-lit) 
; ORGANIZATION  IS  INDEXED 
(ACCESS  MODE  IS  (SEQUENTIAL 

/random  , 

(HYNOTTc  ) 

; RECORD  KEY  IS  data-name 
(;FILE  STATUS  IS  data-name) 

(-.INDEX  SIZE  IS  integer) 

(-.DATA  SIZE  IS  integer) 


FIGURE  6.1  CS-ZO  SELECT  SENTENCE  FORMATS 
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EXAMPLES  OF  Till:  SELECT  STATEMENT: 


(SELECT  for  a  randomly  allocated  indexed  file) 

SliLliCT  ILL  ASSIGN  TO  DISK  ,"DP1E : CFI LED" ; 

ORGANIZATION  IS  INDLXhi) ; 

ACCLSS  MCDL  IS  DYNAMIC; 

RECORD  KHY  IS  C-KLY; 

FILL  STATUS  IS  CI;  ST  AT . 

fSELF.CT  for  a  contiguously  allocated  indexed  file) 

SELECT  CFILE  ASSIGN  TO  DISK  , EX-FI  LL-NAML; 

ORGANIZATION  IS  INDEXED; 

ACCESS  MODE  IS  RANDOM; 

RECORD  KEY  IS  C-KEY; 

FILL  STATUS  IS  CFSTAT ; 

INDEX  SIZE  IS  20; 

DATA  SIZE  IS  10S. 

0.17.0.1.3.3  Rules  for  use:  External  (System)  File 
Specification--the  "id-lit"  following  the  file  device  type  in  the 
SELECT  statements  is  an  Interactive  COBOL  extension.  It  allows 
specification  of  a  program  external  file  name.  Also,  if  the  device 
is  a  disk,  an  optional  device  specifier  may  be  uscu  to  associate  the 
external  file  name  with  a  particular  disk  drive. 

An  external  file-name  for  an  indexed  file  mast  not 
have  an  extension. 

If  a  data-name  is  used  for  the  external  file-name,  the 
full  value  of  the  data-name  must  be  a  valid  file-name  or  the  file-name 
must  be  left  justified  in  the  data-item  and  terminated  by  a  null  (10W- 
VALUE)  . 

When  the  external  file-name  is  omitted,  file-names  are 
supplied  by  default.  Refer  to  the  following  table  for  a  list  of  these 
system  file-names. 
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SYSTEM  FILL-NAMES 


Device  File-name 

PRINTER  $LPT 
PRINTER- 1  $  LPT1 

Terminal  DISPLAY  $TTO 

Terminal  KEYBOARD  STT1 

DISK  The  first  ten  characters  of  the 

internal  (COBOL)  file-name  with 
"S"  replacing 

The  FILE  STATUS  item  must  he  described  ns  a  two  char¬ 
acter  alphanumeric  item. 

Record  keys  must  he  alphanumeric  and  may  be  a  maximum 
of  100  characters  long. 

The  DUPLICATES  phrase  specifies  that  the  value  of  the 
associated  alternate  record  key  may  be  duplicated  within  any  of  the 
records  in  the  file.  Further,  CS  interactive  COBOL  phrase  is  not 
specified . 

INDEX  SIZE  specifies  the  number  of  512-byte  blocks  of 
contiguous  disk  storage  space  to  he  reserved  for  the  data  portion 
of  a  sequential,  indexed,  or  relative  file  when  the  file  is  created. 

The  file  device  names  DISK,  PRINTER,  DISPLAY,  and 
KEYBOARD  are  reserved  words. 

Files  assigned  to  PRINTER  or  DISPLAY  must  be  sequential 
and  opened  in  OUTPUT  or  EXTEND  mode  only. 

Files  assigned  to  KEYBOARD  must  he  sequential  and  openeu 
in  INPUT  mode  only. 

0.17.5.2  I/O  CONTROL  Paragraph:  The  format  of  this  paragraph  is: 
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(SAME  ARLA  FOR  file-name- 1  ( , f i le- name- 2 )  .  ) 

Where  the  format  of  the  SAMI  ARIA  clause  is  the  same  for  all 
machines . 

When  SAMh  ARKA  is  written,  the  data  areas  for  all  of  the  files 
mentioned  overlap.  Tims,  only  one  of  the  list  of  files  may  be  open 
at  the  same  time.  More  than  one  SAMh  AULA  clause  may  appear  in  a 
COBOL  program,  but  no  one  file-name  may  appear  in  more  than  one  such 
clause . 

6.16'  DATA  Ul\'ISIO\ 

fa. 18.1  General  Description:  The  DATA  DIVISION  describes  data  that 
the  object  program  accepts  as  input  in  oruer  to  manipulate,  create, 
or  produce  output.  Data  to  be  processed  falls  into  three  categories: 

1.  Data  that  is  contained  in  files  and  enters  or  leaves  the 
internal  memory  of  the  computer  from  a  specified  area  or  areas. 

2.  Data  that  is  developed  internally  and  placeu  into  intermedi¬ 
ate  or  working  storage,  or  into  specific  format  for  output  reporting 
purposes . 

3.  Constants  that  are  defined  by  t lie  use. 

to . 1 S . 2  Physical  and  Logical  Aspects  of  Data  Description: 

to. la. 2.1  DATA  ulVISILN  (*rgani  tat  ion :  The  DATA  DIVISION  is  sub¬ 
divided  into  tiie  I'  I  1.1  ,  and  WORK  INC -ST  ORACH.  SLCllCNS. 

The  FILL  SLOT  I  ON  defines  the  contents  of  data  files  stored  on  an 
external  medium.  Lach  file  is  defined  by  a  tile  description  iollowed 
by  a  record  description  or  a  series  of  record  descriptions. 
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The  W  OR  K I NG - ST  OR AG  E  SECTION  describes  records  and  noncontiguous 
data  items  that  are  not  part  of  external  data  files  but  are  developed 
and  processed  internally. 

6.18.2.2  DATA  DIVISION  Structure:  The  DATA  DIVISION  is  identi¬ 
fied  by  and  must  begin  with  the  header: 

DATA  DIVISION. 

T.ach  of  the  sections  of  the  DATA  DIVISIONS  (except  the  hORKING- 
STCRAGL  SECTION)  is  optional  and  may  be  omitted  from  the  source  pro¬ 
gram.  The  fixed  names  of  these  sections  in  their  required  order  of 
appearance  as  section  headers  in  tiie  DATA  DIVISION  are: 

FILE  SECTION. 

K OR  K I NC - ST  OR AC  h  SECTION. 

Section  headers  for  the  FILE  SECTION  aie  followed  by  one  or  more 
sets  of  entries  composed  of  file  clauses,  followed  by  associated 
Record  Description  entries.  l» ORkING-STOkAGL  SECTION  headers  are 
followed  by  Data  Description  entries  for  noncontiguous  items,  folioweu 
by  Record  Description  entries.  Sec  Figure  0.2. 

n.la.u  File  Section:  In  a  t.Uh'l.  program  the  File  Description  (Ed) 
entry  represents  the  highest  level  of  organization  in  the  FILL  SECTION. 
Trie  FILL  SECTION  is  composed  of  the  section  iieader  FILE  SECTION  anu  a 
period,  followed  by  a  File  Description  entry  consisting  of  a  level 
indicator  (F'D),  a  data-name,  and  a  series  of  independent  clauses. 

These  clauses  specify  the  size  of  the  physical  records,  and  the  names 
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of  the  data  records  and  reports  that  compose  the  file.  The  entry 
itself  is  terminated  by  a  period.  Tor  the  Intel  8080  MICROSOFT  COBOL, 
the  File  Description  (FD)  Tntry  also  specifies  the  name  of  the  file 
as  needed  by  the  operating  system. 

Record  Description  Structure.  A  record  description  consists  of 
a  set  of  Data  Description  entries  that  describe  the  characteristics 
of  a  particular  record.  Loch  Data  Description  entry  consists  of  a 
level-number  followed  by  a  data-name,  followed  by  a  series  of  inde- 
Dendent  clauses,  as  required.  A  record  description  has  a  hierarchical 
structure;  therefore,  the  clauses  used  with  an  entry  may  vary  consid¬ 
erably,  depending  upon  whether  or  not  it  is  followed  by  subordinate 
entries.  The  structure  of  a  record  description  is  defined  in  "Concep¬ 
ts  of  Levels"  in  Section  (1.9.4;-  elements  allowed  in  a  record  descrip¬ 
tion  are  specified  in  "Data  Description  P.ntries"  later  in  this  section 
(Section  0.18.6). 

6,18.4  WORK  INC -ST OR ACL  SECTION:  The  K  OR  KING-  STO  R  AG  h  SHOT  I  ON  is  com¬ 
posed  of  the  section  header  WORK  I  NO -STORAGE  SECTION  and  a  period, 
followed  by  Data  Description  entries  for  noncontiguous  working-storage 
items  and  Record  Description  entries  (in  that  order). 

6. IS. 4.1  Noncontiguous  Work i ng -Stora ge :  Items  in  working  -  storage 
that  bear  no  relationship  to  one  another  need  not  be  grouped  into 
records  provided  they  do  not  need  to  be  further  subdivided;  instead, 
they  are  classified  and  defined  as  noncontiguous  elementary  items. 

Each  of  these  items  is  defined  in  a  separate  Data  Description  entry 
that  begins  with  the  special  level-number  77. 
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Data  clauses  required  in  each  Data  description  entry  are: 


1.  Leve 1 -  number . 

2.  l)ata-name. 

5.  The  P1GTURL  clause. 

Other  record  description  clauses  arc  optional  and  can  be  used 
to  complete  the  description  of  the  item  if  necessary. 

6.18.4.2  Working-Storage  Records:  Data  elements  in  wor1 ing- 
storage  that  bear  a  definite  relationship  to  one  another  must  he 
grouped  into  records  according  to  the  rules  for  formation  of  record 
description.  All  clauses  that  are  used  in  normal  input  or  output 
record  descriptions  can  he  used  in  a  work  i  ng  -  storage  record  descrip¬ 
tion. 

6.18.4.5  I n i t i a J  Values:  The  initial  value  of  any  item  in  the 
WORKING- ST f'RAGh  SLlTION  except  an  index  data  item  is  specified  by 
using  the  VALUk  clause  of  the  record  description.  The  initial  value 
of  any  index  data  item  is  determined  at  compilation  time. 

6.18.5  file  Description-Complete  Lntrv  Skeleton:  The  general  format 
of  this  entry  is: 


F 1 )  f  i  1  e  -  n  am  e 


IARFL 


Rh  C'ORI)  IS 
RF  C  OtUkS  ART 


STANPARD 

cTTTTmT' 


1)  AT  A 


RLC.OPP  IS  I 
RhCORPS  Ah  hi 


data -name- 7 


Jdata-namc-fjJ 


t 

1 3  0  | 

t 


The  File  Description  entry  furnishes  information  concerning  t lie 
physical  structure,  identification,  and  record  nar.es  pertaining  to  a 
given  file. 

0.18.5.1  LABEL  RECORDS  Clause:  The  format  of  tiiis  clause  is: 


LABEL  RECORD  I S 

]  RECORDS  are 


111) 


STANDARD 
OMITTED  j 


The  OMITTED  option  specifies  that  no  explicit  labels  exist  for 
the  file  or  the  device  to  which  the  file  is  assigned. 

The  STANDARD  option  specifies  that  standard  system  labels  exist 
for  the  file  or  the  device  to  which  the  file  is  assigned.  Such  labels 
are  written  when  the  file  is  opened  for  output  and  checked  automatical¬ 
ly  by  the  operating  system  when  the  file  is  opened  for  input  or 
input/output . 

For  disk  files,  the  I. ADI: I.  RECORDS  clause  varies  depending  on  the 
machine.  For  the  M(>800  COBOL  the  I  ABEL  RECORDS  clause  is  optional, 
and  if  present  is  treated  as  a  comment.  For  the  Intel  8080  MICROSOFT 
COBOL  and  the  Data  General  CS-20  COBOL,  LABEL  RECORDS  are  standard. 

(>.1<S.  5. 2  DATA  RECORDS  Clause:  The  format  of  this  clause  is: 

|  RECORD  I S  1 

DATA  J  l  data-name-7  (data-name-8 ) .  .  . 

j  RECORDS  ARE  | 

The  DATA  RECORDS  clause  cross-references  the  description  of  data 
records  with  their  associated  file  description.  Each  logical  record 
in  tiie  file  may  be  named  in  tiiis  clause;  the  order  in  which  they  are 
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listed  in  the  clause  is  not  important.  It  must  he  remembered  tnat 
no  two  records  of  the  same  file  are  available  for  processing  at  the 
same  time;  in  other  words,  if  one  record  is  read  from  a  file  and 
then  another  record  is  read  from  the  same  file,  the  second  recoru 
replaces  the  first. 

b.lS.b  Data  Description  l.ntrics: 

b.18.0,1  lieneral  format: 

Level-number  ]  data-namel  (RbbLFINLS-clause)  (COPY  statement) 

PI LLLK  j 

(PI CTURH-clause)  (US ACL- clause) 

(BLANK- clause)  (JUST1  l-'I  Li)-  clause) 

(V AUJh-clause)  ( OCCURS- clause) 

A  Data  Description  entry  (see  Table  4)  describes  character i st i c s 
of  each  item  within  a  data  record.  bach  item  is  accorded  a  separate 
entry  that  must  appear  in  the  order  in  which  the  item  occurs  in  the 
record,  since  the  relative  location  of  cacii  entry  is  communicated  to 
the  compiler  by  its  position  in  the  record  descr ipt ion .  bach  entry 
consists  of  a  level-number,  data-name,  and  scries  of  clauses  terminat¬ 
ed  by  a  period. 

Tiie  reserved  word  I  I  LLLK  may  be  substituted  for  a  p  rop,  rammer - 
defined  data-name  when  an  unused  portion  of  n  logical  record  or  data 
item  that  is  not  referenced  directly  is  defined. 

Specific  formats  tor  individual  types  of  data  items  are  shown 
below.  In  each  of  these  formats,  clauses  that  do  not  appear  arc 


categorically 
mandatory  are 
ft. 18. ft. 2 


forbidden  in  that  data  type,  while 
depicted  without  brackets. 

Detailed  Formats  of  Data  Items: 


clauses 


that  are 


Group  Item 
Level -number 


|data-name)  f  REDEFINES-clause]  I  CLCURS-clause 

l  FILLER  f  1  1 


[uSAGF-clause] 

[VALUE  is  non-numeric- 1 iteral]  . 


1.x ample : 


01  GROUP- ITEM. 

02  FIELD01  PICTURE  X. 

02  FIELD-2  riCTURE  X. 

TABLL  .S  VARICXJS  DATA  DESCRIPTION  ENTRIES  LISTING 


01  VAR  I  (JUS-  DATA-  DES(  . 

02  ALPHABETIC-  1YPES. 

05  A1  PICTURE  AAAAAAAA. 

05  A2  REDEFINES  A1  PICTURE  A ( 8 ) . 

05  A5  PICTURE  A(4)  OCCURS  4  TIMES. 

05  A4  PICTURE  A(ft)  VALUE  IS  'XYZ  A'. 

05  A5  PICTURE  A[2)  USAGE  IS  DISPLAY. 

05  AO  PICTURE  A f 8 ) . 

05  A7  REDEFINES  Aft  PICTURE  A (  2 )  USAGE!  DISPLAY 
OCCURS  4  TIMES. 

02  ALPHANUMERIC-TYPES  REDEFINES  ALPHABETIC-TYPES. 

03  AN1  OCCURS  8  TIMES  PICTURE  IS  X‘JA. 

05  AN 2  PICTURE  X(lft)  USAGE  IS  DISPLAY. 

03  AN 3  REDEFINES  AN2  PICTURE  X(4)  OCCURS  4  TIMES. 


155 


0  2  ALPHA- EDITPD-TYPE.S. 


03  Alii  PICTURE  XXliXXBXX . 

05  AL2  PIC  IS  XXXXBXX99BOOBXXX . 

03  A  1. 5  REDEE  IMS  A1.2  PIC  X  f 1 0 )  B09AAX  DISPLAY. 


02  NUMERIC- EDITED-TYPES. 

03  NE1  PICTURE  IS  22,999+. 

03  I\E 2  REDEFINES  NE1  PICTURE.  **,**9-. 

03  ME 5  OCCURS  4  TIMES  PICTURE  2ZZ9. 

0  2  NUMERIC- TYPE. 

03  N1  PICTURE  9999  OCCURS  5  TIMES  US  AC  I:  DISPLAY. 

03  N2  PIC  S 9999  VALUE  IS  -  1234  . 

05  N3  REDEFINES  N2  PICTURE  S99V99. 


0.18.6.3  Alphanumeric  Elementary  Item: 


level -number 


Example : 


data-name  [kEDEF  I MES- clause] 

FILLIR  f  1  J 

[OCCU  RS-clause] 

[picture  i 
jTTT  I 

[  IS  on -type  [USAGE  IS  D I  SPLAY  1 

1 

[value 

IS  non-numeri  c  -  1  i  t  era  l] 

[just  IE  I  El)| 

1 

|  R  I  Cl  IT 

1 

1 

02  CUST-NAME  PICTURE  X(21)  DISPLAY 

02  OUST- ADR  PIC  X  (45) 


6.18.6.4  Alphanumeric  Edited  Elementary  Itert  : 


Level -number 


data- name)  f R1.DE1T NES-v  1  ausel  [OCCURS- cl  ausc] 
E I  LEER  f  1  J  1  J 


L 


picture: 
FIT - 


IS  ac  -  type  [uSAC.li  IS  DISPLAY] 
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[V  ALU  1-  IS  non-numeric-literal] 


RIGHT 


(■justified’ 

just - 


Example : 
02 


DATE  PICTURE  XXBXXXKXXXX  VALUE  ’IS  DEC  1977’ 


6.  18.6. 5  Numeric  Edited  Elementary  Item: 
r-  7 


Level -number 


data-namei 
FILLER 


PICTURE 
PIT -  IS 


[REDEFINES- clause]  [OLCURS- clause] 
jnumeric-type  BLANK  WHEN  ZERO) 


Example : 
0  2 
0  2 


ne-type  BLANK  WliLN  ZERO 

•  v 

[usage  is  display] . 

DEPT- NO  PIC  ZZ999. 

GROSS-SALES  PICTURE  SZ  ,ZZZ  ,ZZZ ,ZZZ . 99- 


6.18.0.6  Alphabetic  Elementary  Item: 
level -number 


jpn  LERamC|  [hEDLF INES-clause]  [OGCURS-clause] 


PICTURE 


rTc 


IS  alpha-type  [USAGE  IS  DISPLAY] 


[  VALUE  IS  non-numeric- 1  iter al] 


-.x  ample : 
0  2 


COUNTY-NAME  PICTURE.  AI3S)  USAGE  IS  DISPLAY. 
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0. lS.fa. 7  ASCII  Uecimal  elementary  Item: 
Level-number 


IS  numeric-type  [USAGL  IS  u  1 S  P  LAY  ] 


data-namel  fkLlil.l- 1  NhS- c  1  ausel  foi.i  UkS-c  lausel 
H  LLLK  |  1  J  L  J 


b.18.0.11)  RLDl.FINLS  Clause:  The  format  of  this  clause  is: 


Level-number  data-name-1  REDEF 1NLS  data-name-2 

The  REDEFINES  clause  overlaps  items  in  storage  (allocates  the 
same  storage  space  for  different  items  at  different  times)  or 
provides  an  alternate  grouping  or  description  of  the  same  data 
(redefines  an  elementary  item  or  a  group  item.) 

The  level-numbers  of  data-name-1  and  data-name-2  must  be  identical 

Tiie  RFDEFINLS  clause  is  not  used  at  the  record  01  level  in  the 
FILE  SECTION.  The  DATA  RECORDS  clause  in  the  FD  entry  indicates  the 
existence  of  more  than  one  type  of  record;  thus,  an  implied  redefin¬ 
ition  exists  at  the  01  level. 

Redefinition  begins  at  data-name-2  and  continues  until  a  level- 
number  whose  value  is  equal  to  or  less  than  data-name-2  is  encountereu; 
therefore,  between  data-names-1  and  -2  there  must  not  be  a  level- 
number  lower  than  that  of  data-namcs-1  and  -2.  Data-name-1  must 
follow  data-name-2  such  that,  if  data-name-2  is  a  group  entry,  tiie 
entry  for  data-name-1  must  appear  immediately  after  the  entries  for 
all  items  in  that  group.  However,  additional  entries  that  redefine 
the  same  area  may  intervene. 

Data-name-1  may  be  a  group  or  an  elementary  item  irrespective  of 
the  nature  of  the  data-name-2  item.  If  it  is  a  group,  the  data-name-2 
entry  is  followed  by  ail  tiie  entries  in  that  group,  since  such  entries 
are  part  of  the  redefinition;  if  it  is  an  elementary  item,  it  complete! 
redefines  data-name-2.  A  REDEFINES  clause  may  be  specified  for  an 
item  within  the  scope  of  an  area  being  redefined;  that  is,  RFDFF1NFS 
clauses  may  be  specified  for  items  subordinate  to  items  containing 
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RiiDLFINLS  clauses. 


When  the  RhDDFIND.S  clause  is  used  with  certain  other  clauses, 

entries  (except  for  condition-name  entries)  containing  or  subordinate 

to  the  REDEFINES  clause  must  not  contain  VAJ.U1.  clauses. 

When  one  area  is  redefined  in  three  or  more  ways,  differences 

among  the  COBOL  versions  exist.  If  A,  U,  0  and  I)  are  all  to  refer 

to  the  same  area,  the  M<>8b0  COBOL  and  tiie  Intel  SIU'.O  M 1  OKOSOFT  (Pl'Oh 

require  that  the  followin';  sequential  structure  he  used: 

Define  A 
B  redefines  A 
C  redefines  I! 

D  redefines  C 

The  Data  General  CS-20  (.'OBOE  requires  that  the  structure  l>c: 

Define  A 
B  redefines  A 
C  redefines  A 
I)  redefines  A 

When  an  area  is  redefined,  all  descriptions  of  that  area  remain 
in  effect  for  the  entire  program.  The  one  that  is  selected  depends 
on  the  particular  reference  made  to  the  area.  Tor  example,  if  items 
A  and  B  share  the  same  area,  MOV'D  X  TO  A  moves  X  to  the  area  according 
to  the  description  of  A,  MOV'D  V  T(  h  moves  Y  to  the  same  area  accord  irK 
to  the  description  of  B.  These  statements  could  lie  executed  anywhere 
in  a  program;  final  contents  of  the  area  depenu  on  the  order  in  which 
they  are  executed.  A  table  of  constant  items  is  redefined  so  that 
any  item  in  the  table  can  be  referenced  bv  position  rather  than  by 
individual  name.  This  does  not  redefine  the  area  accord  ini;  to  differ¬ 
ent  patterns,  but  simply  permits  the  same  pattern  of  items  to  be 


considered  in  a  different  way. 


fr.18.fe.il  PICTURE  Clause:  Tlie  format  of  this  clause  is: 

IS  character- string 

The  PICTURE  clause  describes  the  general  characteristics  and 
editing  requirements  of  elementary  items. 

The  character-string  consists  of  certain  allowable  combinations 
of  characters  in  the  COBOL  character  set  used  as  symbols.  These 
allowable  comuinat ions  determine  the  category  of  the  item.  The 
five  categories  of  data  that  can  be  uescribed  with  a  PICTURE  clause 
are : 

1.  Alphabetic 

2.  Alphanumeric 

3.  Numeric 

4.  Alphanumeric  hd i ted 

5.  Numeric  Ldited 

The  following  rules  apply  to  the  use  of  the  PICTURL  clause: 

1.  GENERAL :  The  number  of  occurrences  of  any  of  the  characters 
indicates  the  size  of  an  item  described  by  the  PICTURE  clause.  The 
size  may  be  indicated  either  by  repeating  the  character  or,  in  a 
shorthand  way,  by  writing  the  character  once  and  putting  the  number 
of  its  occurrences  in  parentheses.  Thus,  Z  (10)9(2)  is  equivalent 
to  ZZZZZZZZZZ99 .  A  maximum  of  30  characters  is  allowed  in  a  PICTURL 
clause.  This  limit  does  not  refer  to  the  number  of  characters  in  the 
item  itself,  but  only  to  the  number  of  characters  (including  paren- 
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theses)  used  in  the  P1CTURL  specifying  the  item.  For  example,  the 
same  item  may  be  described  by  a  PICTURL  containing  12  ciiaracters, 
or  by  a  PIlTUKL  containing  only  9  characters,  £(10)9(2).  In  either 
case,  the  actual  size  of  the  item  is  12  characters.  An  item  contain¬ 
ing  75  alphabetic  characters  may  be  specified  by  the  PICTURL.  A(75), 
which  uses  only  5  characters,  but  the  same  item  may  not  be  specified 
by  a  PICTURL:  in  which  A  is  repeated  75  times.  Tile  size  of  an  alpha¬ 
betic  or  alphanumeric  item  described  by  the  PICTURL,  is  limited  to  a 
maximum  of  255  characters  except  for  numeric  display  items,  which  are 
limited  to  15  digits.  The  size  of  an  entire  Croup  Item  is  also  limit¬ 
ed  to  4095  characters. 

2.  Categories  of  Data 

a.  Alphabetic  (alpha  -  type ) :  The  PICTURL:  of  an  alphabetic 
item  contains  only  the  character  A.  The  number  of  A's  in  the  c  liar  a 
cr-string  denotes  the  size  of  the  data  item,  arid  each  A  represents 
one  character  that  at  execution  time  may  contain  one  of  the  twenty- 
six  letters  of  the  lnglish  alphabet  or  the  space  character. 

h.  Alphanumeric  (an-type):  The  P1CTUR1.  of  an  alphanumeric 
item  may  contain  only  the  Character  X  or  a  combination  of  the  charact¬ 
ers  X,  A,  anu  9.  An  X  indicates  that  the  corresponding  character 
position  of  the  data  item  may  contain  any  one  of  the  characters  in 
the  ASCII  set.  When  the  PICTURL  is  described  with  a  combination  of 
characters,  each  character  is  treated  as  though  it  were  an  X,  since 
no  examination  of  the  data  placed  in  the  item  is  made  at  execution 
time.  Thus,  this  type  of  PI  OUR  I:  description  may  have  documentary 
significance  only  to  the  programmer. 


c.  Numeric  (numeric-type) :  The  PICTURh  of  a  numeric  data 
item  may  contain  only  the  characters  9,  S,  and  V. 

The  character  9  represents  a  dipit  position  containing  a 
numeral  and  is  counted  in  the  size  of  the  item. 

The  character  S  indicates  the  presence  of  an  operational 
sign  and  must  be  written  as  the  leftmost  character  in  the  PICTURh. 

The  character  V  indicates  the  position  of  the  assumed 
decimal  point  and  may  occur  only  once  in  the  character -string .  The 
V  does  not  represent  a  digit  position  and  therefore  is  not  counted 
in  the  size  of  the  item.  When  a  V  is  written  as  the  last  (rightmost) 
character  in  the  PICTURh,  it  is  redundant. 

d.  Alphanumeric  Hdited  (ac-typc):  The  PICTURh  of  ah 
alphanumeric  edited  item  contains  any  combination  of  the  ciiaracters 
X,  A,  and  9  together  with  one  or  more  occurrences  of  the  insertion 
characters  0  (zero)  or  R.  bach  0  represents  a  character  position 
into  which  the  ciiaracter  0  is  to  be  inserted;  each  b  represents  a 
character  position  into  which  the  space  character  is  to  be  inserted. 
Thus,  an  alphanumeric  edited  field  is  one  that  contains  certain  ciiar¬ 
acter  positions  into  which  insertion  characters  are  forced  whenever 
data  is  stored  in  the  item  at  execution  time. 

e.  Numeric  hdited  (ne-type):  hditing  alters  the  format 

and  punctuation  of  data  in  an  item;  characters  can  be  suppressed  or 
addeu.  hditing  is  accomplished  by  moving  a  data  item  to  an  item 
describeu  as  containing  editing  symbols.  Movement  may  be  direct  or 
inuirect:  The  programmer  can  specify  a  MOVb  statement  or  arithmetic 
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statement  in  which  the  result  of  computation  is  stored  in  such  an 
item. 


Characters  that  may  be  used  in  a  PIC'lURh  of  a  numeric  euiteu 

item  are 

V  V  t  ♦  -  .  ,  O  is  /  CR  PIS  2  * 

The  characters  h  and  V  are  discussed  above:  tneir  use  is 
exactly  the  same  as  in  numeric  items.  The  remainder  are  insertion 
and  replacemcn X..  char acters  fsee  below). 

3.  Insertion  Characters:  When  an  insertion  character  is  specif¬ 
ied  in  the  PICTURL,  it  appears*  in  the  editeu  data  item;  therefore,  tne 
size  of  the  item  must  reflect  these  additional  characters.  Insertion 
characters  and  their  ciiaracter  ist  ics  are: 

$  When  a  single  dollar  sign  is  specified  as  the  leftmost  sym¬ 
bol,  it  appears  as  the  leftmost  character  in  the  size  of  the  item. 

+  When  a  plus  sign  is  specified  as  the  first  or  last  symbol, 
a  plus  sign  is  inserted  in  tne  indicated  ciiaracter  position  of  the 
euiteu  data  item  provideu  the  uata  is  positive  (contains  a  positive 
operational  sign)  or  is  unsigned.  If  the  uata  is  negative,  a  minus 
sign  is  inserted  in  tiie  indicated  character  position.  inis  sign  is 
counted  in  the  size  of  the  item. 

linen  a  minus  sign  is  specified  as  the  first  or  last  symbol, 
a  minus  sign  is  inserted  in  the  indicated  ciiaracter  position  of  tne 
edited  data  item  provided  the  data  is  negative  (contains  a  negative 
operational  sign).  If  the  data  is  not  negative,  a  blank  is  inserted 
in  tiie  indicated  ciiaracter  position.  This  sign  or  Maul,  is  counted 
in  the  size  of  the  item. 
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.  The  period  character  represents  an  actual  decimal  point, 
as  differentiated  from  an  assumed  decimal  point.  When  used,  a  decimal 
point  appears  in  the  edited  data  item  as  a  character  in  the  indicated 
character  position;  therefore,  the  decimal  point  is  counted  in  the 
size  of  the  item.  A  1’KTURl.  can  never  contain  more  than  one  decimal 
joint,  actual  or  assumed. 

,  When  a  comma  is  used,  a  comma  is  inserted  in  the  correspond¬ 
ing  character  position  of  the  edited  data  item.  It  is  counted  in  the 
size  of  the  item. 

0  When  a  zero  is  used,  a  zero  is  inserted  in  the  correspond¬ 
ing  character  position  in  the  edited  data  item.  It  is  counted  in  the 
size  of  the  item. 

1>  When  a  character  H  is  used,  a  space  is  inserted  in  the  cor¬ 
respondin'’  character  position  in  the  edited  data  item.  It  is  counted 
in  the  size  of  the  item. 

/  When  the  slasn  character  is  used,  a  slash  character  is  in¬ 
serted  in  the  corresponding  character  position  in  the  edited  data 
item.  It  is  counted  in  the  size  of  the  item. 

CR  The  credit  symbol  CR  may  be  specified  only  at  the  right  end 
of  the  PICTURh  character-string.  It  is  inserted  in  the  last  two 
character  positions  of  the  edited  data  item  provided  the  value  of  the 
data  is  negative;  if  the  data  is  positive  or  unsigned,  these  last 
two  character  positions  are  set  to  spaces.  Since  this  symbol  always 
results  in  two  characters  (iR  or  spaces),  it  is  included  as  two  char¬ 
acters  in  the  size  of  the  item. 


Table  6:  Examples  of  Insertion  Characters 


Source  Data 

l.ditnif.  I’ICTURl 

l.di  ted  1  ten: 

4  8 

joy 

$  4  8 

4  8^34 

$99.99 

<■48.54 

4  8  5  4 

()  0 no 

4,854 

2  9  2 

+999 

+  292 

2  9  2 

+  999 

+  292 

2  9  2 

+  99  9 

-  2  9  2 

2  9  2 

-999 

-  2  9  2 

2  9  2 

999- 

2  9  2  - 

2  9  2 

999- 

2  9  2  A 

2  4  3  4  2  1 

$913099. 9.9 

$  A  A  2  4  5  .  2  ] 

2  4  5  4  2  1 

$009 9 9 . 9 9 

$  0  t)  2  4  5  .  2  j 

114  5  4 

99. 99CR 

1  1  .  5  4  C  R 

114  5  4 

99.99CR 

1  1  .  5  4  A  A 

2  5  4  7  6 

99 . 991)13 

2  5.7  0  1)  h 

2  5  4  7  6 

99.99HH 

2  5  .  7  0  A  A 

1  2  3  4  5  0 

. 

99/99/99 

12/54/56 

I  -1  1 


I'H  The  debit  symbol  1 ) II  may  be  specified  only  at  the  right  end 
of  the  PICTURE.  It  functions  in  the  same  manner  as  the  credit  symbol. 

4.  Replacement  Characters:  A  replacement  character  suppresses 
leading  zeros  in  data  and  replaces  them  with  other  characters  in  the 
edited  data  item.  Only  one  replacement  character  may  be  used  in  a 
PICTURE,  although  Z  or  *  may  be  used  with  any  one  of  the  insertion 
characters.  Replacement  characters  and  their  characteristics  are: 

Z  One  character  Z  is  specified  at  the  left  end  of  the  PICTURE 
character  string  for  each  leading  zero  that  is  to  be  suppressed  and 
replaced  by  blanks  in  the  edited  data  item.  Z's  may  be  preceded  by 
one  of  the  insertion  characters  $  +  or  -  and  interspersed  with  any  _f 
the  .  ,  0  or  h  insertion  characters. 

Only  the  leading  zeros  that  occupy  a  position  specified  by 
Z  are  suppressed  and  replaced  with  blanks.  No  zeros  are  suppressed 
to  the  right  of  the  first  non  zero  digit  whether  or  not  a  Z  is  pre¬ 
sent,  nor  are  any  zeros  to  the  right  of  an  assumed  or  actual  decimal 
point  suppressed  unless  the  value  of  the  data  is  zero  and  all  the 
character  positions  in  the  item  are  described  by  a  Z.  In  this  special 
case,  even  an  actual  decimal  point  is  suppressed  and  the  edited  item 
consists  of  all  blanks. 

If  a  S  +  or  -  is  present  preceding  the  Z's,  it  is  inserted 
in  the  far  left  character  positon  of  the  item  even  if  succeeding 
zeros  in  the  item  are  suppressed.  In  the  special  case  where  the  value 
of  the  data  is  zero  and  all  the  character  positions  following  the 
^  +  or  -  are  specified  hy  Z’s,  the  S  +  or  -  is  replaced  by  a  blank. 


If  a  0  or  B  or  ,  in  the  PICTURE  is  encountered  before  zero 
suppression  terminates,  t ho  character  is  not  inserted  in  the  edited 


data  item  but  is  suppressed,  and  a  blank  inserted  in  its  place. 

*  The  asterisk  replaces  the  lead  inf,  zeros  it  edits  by  an 

asterisk  instead  of  a  blank.  It  is  specified  in  tiie  same  way  as  the 
editing  character  Z  and  follows  the  same  rules,  except  that  an  actual 
decimal  point  is  never  replaced. 

$  When  the  dollar  sign  is  used  as  a  replacement  character  to 
suppress  leading  zeros,  it  acts  as  a  floating  dollar  sign  and  is  in¬ 
serted  directly  preceding  the  first  nonsuppressed  character.  One 
more  dollar  sign  must  he  specified  than  the  number  of  zeros  to  be 
suppressed.  This  dollar  sign  is  always  present  in  the  edited  data 
whether  or  not  any  zero  suppression  occurs.  The  remaining  dollar 
signs  act  in  the  same  way  as  Z  to  effect  the  suppression  of  leading 
zeros.  No  other  editing  character  may  precede  the  initial  dollar  sign, 
hach  dollar  sign  specified  in  a  PICTURE  is  counted  in  determining  tiie 
size  of  the  report  item. 

+  When  a  plus  sign  is  used  as  a  replacement  character,  it  is 
a  floating  plus  sign.  The  plus  sign  is  specified  one  more  time  than 
the  number  of  leading  zeros  to  be  suppressed.  It  functions  in  the 
same  way  as  the  floating  dollar  sign:  a  plus  sign  is  placed  directly 
preceding  the  first  nonsuppressed  character  if  the  edited  data  is 
positive  or  unsigned,  and  a  minus  sign  is  placed  in  this  position  if 
the  edited  data  is  negative. 

When  a  minus  sign  is  used  as  a  replacement  character,  it  is 


1  4d 


Table  7:  llxnmples  of  Replacement  Characters 


Source  Data  lid  i  tine,  I’HiTUUD  Dili  ted  Item 


0  0  9  2  3 

0  0  9  2  5 

0  0  0  0,  0  0 

A 

0  0  9  ^23 
0  0  0  8  ^24 

0  0  5  .  2  b 

A 

3  2.05 


ZZ999 

ZZZ99 

ZZZZ.99 

$***.99 

$$$$9.99 

---9.99 

$$$.99 


A  A  9  2  3 

A  A  9  2  3 

A  A  A  A  .  o  o 

$**9.23 
A  A  A  $  8  .  2  4 

A  A  -  5  .  2  5 

$32.  0  5 
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Table  8:  Examples  of  PICTURE  Editin 


DATA  to  be  Edited  PICTURE  of  Edited  Item 

Report  Item 


0 

1 

2 

3 

4 

5 

111, 

999.99 

A 

l 

9 

3 

4 

3 

0 

l) 

0 

0 

1 

2 

3 

4 

Z99, 

999.99 

A 

0 

0 

9 

0 

1 

? 

3 

4 

0 

0 

0 

1 

2 

3 

$'2ZZ 

,ZZ9 . 99 

$ 

A 

A 

A 

A 

A 

A 

1 

2 

3 

0 

0 

u 

0 

1 

2 

$ZZZ 

, ZZZ.  99 

$ 

A 

A 

A 

A 

1 

2 

0 

(1 

1 

2 

5 

4 

$*** 

,**9.9!) 

$ 

* 

* 

l 

9 

2 

3 

4 

0 

0 

l 

2 

3 

4 

5 

6 

$*** 

***.99 

$ 

1 

2 

3 

9 

4 

5 

b 

0 

0 

l 

2 

3 

4 

5 

b 

<$*** 

*  **  _  f)Q 

S 

* 

* 

* 

* 

* 

& 

1 

2 

5 

0 

0 

0 

0 

1 

i 

+  99!) 

,  999 

+ 

0 

0 

o 

9 

0 

I 

2 

0 

0 

0 

0 

1 

2 

-zzz 

,111 

A 

A 

A 

A 

A 

1 

2 

1 

2 

3 

4 

5 

b 

szzz 

,ZZ9. 99CR 

$ 

1 

2 

3 

9 

4 

s 

0 

0 

0 

(i 

0 

1 

1 

L. 

+ 

.•> 

ij*  i-t  Lt  Li 

,Z 7. 9. 991)1. 

$ 

A 

A 

A 

A 

A 

A 

1 

2 

.-> 

0 

0 

1 

2 

3 

4 

$(4) 

,$$9.99 

A 

A 

A 

A 

$ 

i 

> 

3 

4 

U 

0 

0 

0 

0 

0 

0 

S(4) 

, $$$.99 

A 

A 

A 

A 

A 

A 

A 

$ 

0 

u 

0 

0 

0 

0 

1 

2 

— 

,---.99 

A 

A 

A 

A 

A 

A 

A 

- 

1 

) 

0 

u 

0 

0 

1 

+ 

2 

— 

,--- .99 

A 

A 

A 

A 

A 

A 

A 

A 

1 

£ 

$$$$,$ZZ.99  Illegal  PICTURE 


0  0  0  0  0  1 


a  floating  minus  sign.  The  minus  sign  is  specified  one  more  time 
than  the  number  of  leading  zeros  to  be  suppressed.  It  functions  in 
the  same  way  as  the  floating  plus  sign,  except  that  a  blank  is  plac¬ 
ed  directly  preceding  the  first  nonsuppressed  character  if  the  edit¬ 
ed  uata  is  positive  or  unsigned. 

5.  Summary: 

a.  Only  one  of  the  characters  of  the  set  2  *  $  +  and  - 
can  be  used  within  a  single  PICTURE  as  a  replacement  character,  al¬ 
though  it  may  be  specified  more  than  once. 

b.  If  one  of  the  replacement  characters  Z  or  *  is  used 
with  one  of  the  insertion  characters  $  +  or  -,  the  plus  or  minus 
signs  may  he  specified  as  either  the  leftmost  or  rightmost  character 
in  the  PICTURE. 

c.  A  plus  sign  and  a  minus  sign  may  not  be  included  in 
the  same  PICTURH. 

d.  A  leftmost  plus  sign  and  a  dollar  sign  may  not  be  in¬ 
cluded  in  the  same  PICTURE. 

e.  A  leftmost  minus  sign  and  a  dollar  sign  may  not  be  in¬ 
cluded  in  the  same  PICTURE. 

f.  The  character  9  may  not  be  specified  to  the  left  of  a 
replacement  character. 

g.  Symbols  tiiat  may  appear  only  once  are  V  S  .  Ck  and  ub. 

h.  The  decimal  point  may  not  be  the  rightmost  character  in 

a  PICTURE.. 

b.l8.b.l2  USAGE  Clause:  The  format  of  this  clause  is: 
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The  USAGE  clause  specifies  the  form  in  which  data  is  represented 
in  the  computer.  It  can  be  written  at  any  level.  If  the  USAGE  clause 
is  written  at  a  group  level,  it  applies  to  each  elementary  item  in  the 
group  in  addition,  the  USAGE  clause  of  an  elementary  item  cannot  con¬ 
tradict  the  USAGE  clause  of  a  group  to  which  the  item  belongs. 

This  clause  specifies  the  manner  in  which  a  data  item  is  repre¬ 
sented  in  the  storage  of  the  computer.  It  does  not  affect  the  use  of 
the  data  item,  although  the  specifications  for  some  statements  in  the 
PROCEDURE  DIVISION  may  restrict  the  USAGE  clause  of  the  referent 
operands . 

DISPLAY  denotes  that  the  item  is  carried  in  the  ASCII  format. 
DISPLAY  mode  is  assumed  when  a  USAGE  clause  is  not  written.  One  char¬ 
acter  is  stored  in  each  byte  of  the  item;  if  the  item  is  numeric,  t lie 
leftmost  byte  can  contain  an  operational  sign  in  addition  to  a  digit. 

(NWPUTATI  I'NAE  defines  a  packed  decimal  data  item  whose  length  is 
specified  by  the  accompanying  PICTURE  clause. 

INDEX  defines  an  item  that  is  called  an  index  data  item  and  will 
contain  a  value  that  corresponds  to  an  occurrance  number  of  a  table 
element.  Index  data  items  must  be  elementary  data  items.  Since  USAGE. 
IS  INDEX  totally  defines  the  internal  representation  of  the  data,  a 
PICTURE  clause  is  not  used  with  an  index  data  item.  The  VALUE  IS 
clause  may  not  be  used  with  a  USAGE  IS  index  data  item. 
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0.13.6.15  BLANK  WHEN  ZERO  Clause:  The  format  of  this  clause  is: 

BLANK  WHEN  ZERO 

The  BLANK  WHEN  ZERO  clause  may  lie  supplied  only  in  conjunction 
with  a  numeric  edited  item.  It  specifics  that  when  the  source  item 
has  a  value  of  zero,  the  edited  data  item  is  to  contain  all  spaces. 

0.18.0.14  JUSTIFIED  Clause :  The  format  of  this  clause  is: 

RIGHT 

This  clause  is  applicable  only  to  alphabetic  or  alphanumeric 
items.  Normally,  when  data  is  moved  into  analphabetic  or  alphanumeric 
field,  the  source  data  is  aligned  at  the  leftmost  character  position 
of  the  receiving  data  item  and  moved  with  space  fill  or  truncation  on 
the  right. 

When  the  receiving  data  item  is  described  with  the  JUSTIFIED 
clause  and  the  sending  data  item  is  larger  than  the  receiving  data 
item,  the  leftmost  characters  are  truncated.  When  the  receiving  data 
item  is  described  with  the  JUSTIFIED  clause  and  is  larger  than  the 
sending  data  item,  the  data  is  aligned  at  the  rightmost  character 
position  in  the  data  item  with  other  characters  space-filled. 

0.18.0.15  VALUE  Clause.  The  format  of  this  clause  is: 

Value  IS  literal 

The  VALUE  clause  defines  toe  value  of  constants,  or  the  initial 


JUSTIFIED 

JUST 
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value  of  working-storage  items.  This  clause  must  not  conflict  uitn 
other  clauses  in  the  data  description  ol  the  item  or  in  tne  data 
description  within  the  hierarchy  of  the  form.  T  it  e  following  rules 
apply: 

1.  General 

a.  If  the  category  ol'  the  item  is  numeric,  the  literal  is 
aliened  according  to  the  alignment  rules  except  that  the  literal  must 
not  have  a  value  requiring  truncation  of  digits. 

b.  If  the  category  of  the  item  is  alphabetic  or  alphanumer¬ 
ic  the  literal  in  the  VAI.UH  clause  must  he  a  nonnumeric  literal.  liie 
lateral  is  aligned  according  to  the  alignment  rules  exce)  t  that  the 
number  of  characters  in  the  literal  must  not  exceed  the  size  of  the 
item. 

c.  The  numeric  literal  in  a  VAI.UH  clause  of  an  item  must 
have  a  value  within  the  range  of  values  indicated  by  the  USAGh  or 
PICTURL  clause. 

d.  The  function  of  any  editing  clauses  or  editing  charact¬ 
ers  in  a  riCTURh  clause  is  ignored  in  determining  the  initial  appear¬ 
ance  of  the  item  described.  However,  editing  characters  are  included 
in  determining  the  size  of  the  item. 

2.  Data  Description  Hntries 

a.  Rules  governing  the  use  of  the  VALUH  clause  differ  with 
the  respective  section  of  tne  DATA  DIVISION: 

(1)  In  the  JILL  SI, Cl  ION,  the  VALUH  clause  is  not 

a  1 lowed . 
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(2)  In  the  WORKING-STORAGE  the  VALUE  clause  may  be 
useu  to  specify  the  initial  value  of  any  data  item.  It  causes  the 
item  to  assume  the  specified  value  at  the  start  of  tne  object 
program.  It  the  VALUE  clause  is  not  useu  in  an  item  uescription, 
tiie  initial  value  may  be  unpredictable. 

b.  The  VALUE  clause  must  not  be  stated  in  a  Record 
Uescription  entry  containinnan  OCCURS  clause  or  in  an  entry  sub¬ 
ordinate  to  an  entry  containing  an  OCCURS  clause. 

c.  The  VALUE  clause  must  not  be  stated  in  a  Record 
Uescription  entry  containing  a  REDEFINES  clause  or  in  an  entry  sub¬ 
ordinate  to  an  entry  containing  a  REDEFINES  clause.  This  rule  does 
not  apply  to  condition-name  entries. 

d.  The  VALUE  clause  may  not  be  used  in  an  entry  at  the 
group  level. 

e.  Tiie  VALUE  clause  may  not  be  used  with  a  USAGE  JS  Index 

data  item. 

(l.lS.d.lh  OCCURS  Clause:  The  format  of  this  clause  is: 

CCOIRS  integer- 1  i  If' I  S 

INDEXED  BY  index-name- 1  [,  index-name- z]  .  .  .] 

The  OCCURS  clause  eliminates  the  need  for  separate  entries  of 
repeated  data  and  supplies  information  required  for  the  application  of 
subscr i pt  s  . 

The  OCCURS  clause  is  used  in  defining  tables  and  other  homogen¬ 
eous  sets  of  repeated  data;  when  it  is  used,  the  datn-name  that  is 
the  subject  of  this  entry  must  cither  be  subscripted  whenever  it  is 


referenced  in  a  statement.  Furthermore ,  if  the  subject  of  this  entr 
is  the  name  of  a  group  item,  all  data-names  belonging  to  the  <:roup 
must  he  subscripted  whenever  they  are  used  ns  operands. 

The  data  description  clauses  associated  with  an  item  whose 
description  includes  an  OCCURS  clause  apply  to  each  repetition  of 
the  item  described.  Also  the  VAilih  clause  must  not  be  stated  in  a 
data  description  entry  that  contains  an  OCCURS  clause  or  in  an  entry 
that  is  subordinate  to  an  entry  containing  an  OCCURS  clause. 

An  INDEXED  BY  clause  is  reuuired  if  the  subject  of  this  entry, 
or  an  item  within  it  if  it  is  a  group  item,  is  to  lie  referenced  by 
indexing.  The  index-name  identified  by  this  clause  is  not  defined 
elsewhere;  the  compiler  allocates  storage  for  it  unassociated  with 
any  data  hierarchy. 

b.19  PRO  CEDUKE  DIVISION 

6.19.1  General  Description:  The  PROCEDURE  DIVISION  of  a  COBOL 
source  program  specifies  the  procedures--the  precise  sequence  of 
processing  operations--necded  to  solve  a  given  problem.  These 
operations  (computations,  logical  decisions,  input/output,  etc.) 
are  expressed  in  meaningful  statements,  similar  to  Lnglish. 

6.19.2  Procedure  Division  Elements: 

6.19.2.1  Statements:  A  statement  consists  of  a  COBOL  verb 
followed  by  appropriate  operands  (data-names  or  literals)  and  reserved 
words.  The  three  types  of  statements  arc: 

1 •  Compiler  directing 


1  b  4 


Imperat ive 


5.  Conditional 

6.19.2.1.1  Compiler  Directing  Statement:  A  Compiler 
directing  statement  directs  the  compiler  to  take  certain  actions  at 
compilation  time.  Compiler  Directing  statements  are:  COPY.  This 
statement  is  not  in  NETWORK  COHOL. 

6.19.2.1.2  Imperative  Statement:  An  imperative  statement 
specifies  an  action  to  be  taken  unconditionally  by  the  object  program. 
An  imperative  statement  may  consist  of  a  series  of  imperative  state¬ 
ments  . 

6.19.2.1.3  Conditional  Statement:  A  conditional  statement 
describes  a  condition  that  is  tested  to  determine  which  of  alternate 
paths  of  programmed  processing  flow  is  to  be  taken.  Conditional  state 
ments  are: 

1.  R F AD  and  RETURN  statements  that  have  the  AT  HND  or 
INVALID  KLY  options. 

2.  WRITE  statements  with  the  INVALID  KLY  option. 

5.  Arithmetic  statements  with  the  SIZE  ERROR  option. 

4.  IF  statements. 

6.19.2.2  Sentences:  A  sentence  is  a  single  statement  or  series 
of  statements  terminated  by  a  period.  A  single  semicolon  may  be  used 
as  a  separator  between  statements  within  a  sentence. 

0.19.2.3  Paragraphs:  A  paragraph  consists  of  one  or  more  sen¬ 
tences  identified  by  a  beginning  paragraph-name. 

6.19.2.4  Sections:  A  section  comprises  one  or  more  successive 
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paragraphs ,  and  must  begin  with  a  section-  header.  A  section  Header 
consists  of  a  section-name  followed  by  the  word  SbCTIPN  and  a  perioi. 


fa.  19. 2. 5  Paragraph  and  Section  Naming:  hvery  paragraph  or 
section  lias  a  programmer-supplied  name  that  is  given  in  the  header 
entry.  This  name  is  used  for  reference  (as,  for  example,  when 
specifying  a  GO  TO  paragraph-name  or  a  GO  TO  section-name.) 

fa. 19. 3  Procedure  Division  Structure:  The  formats  of  the  l’ROCLDURh 
DIVISION  are: 

Format  1: 


PROCHDURi:  DIVISION 
jscet  ion-name  ShCT  I  ON  .. 


f  ,  1  1 

i 

paragraph-name.  sentence.  1  .  .  J 

t  •  •  * 

J  J 

i 

Format  2: 

PROChnURF  DIVISION 

paragraph- name .  sentence J 

Lxecution  of  tne  program  begins  at  tne  first  statement  of  tne  first 
sect  ion . 

6.19.4  Conditional  Statements:  A  conditional  statement  descrioes  a 
condition  that  is  tested  to  determine  selection  of  alternate  paths  of 
programmed  processing  flow.  The  programmer  can  accomplish  this 
branching  using  the  following  types  of  statements: 

1.  1  he  CO  T(  ,  .  .  1M-.PLN1)1NG  ON  .  .  .,  which  brandies  to  one  of 


several  procedure-names . 


2.  Statements  with  exception  branch.es:  AT  END,  INVALID  KI  Y  , 
ana  ON  SIZL  ERROR. 

3.  The  IF,  and  PERFORM,  in  which  the  condition  is  explicitly 
stated . 

6.19.4.1  Relations:  Relational-operators  in  the  COBOL  language 


are : 


IS  JNOTJ 
IS  ^NOl J 

IS  [NOT 


GREATER  THAN 


> 

iiSS  THAN/ 


L 


< 


NOT"] 


|  EQUAL  TO] 


EQUALS 


Underlined  words  in  the  above  list  must  be  present  wnen  the  re¬ 
lational-operator  is  used.  i\orus  not  underlined  may  be  omitted  if 
the  programmer  desires,  with  no  effect  on  the  meaning  of  the  relation¬ 
al-operator. 

I’e  1  at  ional -operators  are  combined  with  identifiers  or  literals 
to  create  relation  conditions.  The  general  format  is: 


identif icr-1 

1 i teral -  1 

ar i thme tic- 
ex  pres  si  on 


relational -opera tor 


ident i f i er- 2 

literal-2 

ari thmetic- 
express i on 


logical  operators  arc  AND,  OK,  and  NOT.  AND  and  CR  are  used  to 
create  a  "compound  condition"  when  two  or  more  tests  are  specified  in 
the  same  expression.  NOT  is  used  to  specify  tiie  negation  of  a 
condicion.  NOTH:  Compound  conditions  must  he  enclosed  in  parentheses 
if  they  are  to  work  correctly.  The  MICROSOFT  COhOL  will  flag  this 
as  an  error  but  generate  the  correct  code.  Consider  the  followin'.', 
example  : 

IF  feCDh  IS  ZLRO  AND  AC  I  NOT  CkhATFR  11! Ah  L 1  ^  ADD  A  ll  h. 

Notice  how  AND  and  NOT  are  used  to  augment  the  two  basic  tests. 

Because  the  tests  are  connected  by  AND,  they  both  must  be  true  for 
A  to  be  added  to  h. 

Consider  the  following: 

if  (com;  rs  not  zfro  or  aci  crfatfr  than  2ij  add  c  to  d. 

This  time  the  logical  operator  OR  specifies  that  C  is  to  he  added  to 
1'  if  either  or  both  conditions  are  fulfilled. 

NOT  can  be  used  in  two  wavs  with  a  simple  relational  condition: 
in  the  relat  ionnl -operator  as  in  ACI  NOT  ORF.ATFR  THAN  21,  or  preceding 
the  entire  condition  as  in  NOT  ACT  CPFATFR  THAN  21.  ACI.  NOl  CRF.ATFR 
THAN  21  and  NOT  ACT  CRl.AThR  TO \N  21  arc  exactly  equivalent  in 
meaning.  If  NOT  precedes  a  simple  relational  condition  tiiat  contains 
No  1  in  the  re  1  a t iona 1 -opera tor ,  a  double  negative  results  and  causes 
an  error. 

h.lD.4..i  Otiier  Condition  Jests: 


6.  IP.  4.3.1  Sign  Test:  The  format  of  this  test  is: 


TF 

data-name 

IS  [NOT] 

positive] 

arithmetic -express ion 

negative] 

The  sipn  test  is  also  effectively  a  special  case  of  relation 
testing  equivalent  to  testing  whether  an  expression  is  GREATER  THAN , 
LESS  THAN,  or  EQUAL  TO  ZERO.  The  data-name  must  be  a  numeric  value 
that,  if  unsigned  and  not  equal  to  zero  is  assumed  to  be  positive. 

The  value  zero  is  considered  neither  positive  nor  negative.  The 
statement  GROSS  IS  NEGATIVE  is  equivalent  to  GROSS  IS  LESS  THAN 
GROSS  IS  POSITIVE  is  equivalent  to  GROSS  IS  GREATER  THAN  0.  Any 
condition  that  can  be  expressed  as  a  sign  condition  can  he  expressed 
as  a  simple  relational  condition;  the  sign  condition  is  merely  a 
convenient  way  of  expressing  certain  situations. 

6.19.4.5.2  Glass  Test:  The  format  of  this  tes*  is: 


IF  data-name  IS  f.NOTj 

(numeric: 
{alphabet  i  c 

The  data-name  must  be  defined  in  the  UATA  DIVISION  as 
USAGE.  DISPLAY.  Tabic  9  lists  cases  where  the  class  test  is  valid 
and  meaning  of  the  results. 

6.19.4.5,3  Gomna risen  of  Numeric  Items:  for  numeric  items  a 
relation  test  determines  that  the  value  of  one  of  several  items  is 
less  than,  equal  to,  or  greater  than  the  others,  regaruless  of  tar 
i'-’ii  .th.  Numeric  items  are  compared  algebraically  after  alignment  of 
imal  points.  Zero  is  considered  a  unique  value  regardless  of 


PI  CHIRP. 


Must  May 

Contain  Contain 

Allowable  Characters 

Valid  Tests 

Mean  i  n <\ 

a  n 

Alphabetic  (A-Z  and 
space) 

[kCt]  ALJ'IIA- 
RITIC 

(Not)  only 
cliaracters 
A-Z  and 
space  appear 

A  9  X  H  o| 

X  A 9  R  ll  | 

Alphanumeric  (any 
character) 

( 

1 

[NCT]  ALP1IA- 
BPTIC 

[not]  MiMLR- 
IC 

(Not)  only 
cnaracters 
A-Z  and 
space  appear 

(Not)  only 
ch aracters 
0-9  appear 

S  9  0  V  p 

Zoned  dec ima 1  with 
operational  sign 

[not]  mj.mpr- 
ic 

(Not)  on] 
character; 

0-9  appear 
in  all  pos¬ 
ition,  which 
can  contain 
zone  bit. 

9  0  V  !’ 

Zoned  decimal  with¬ 
out  siyn 

[nct]  NLIMPR- 
IC 

(Not)  only 
characters 
U-P  appear. 

length,  sign,  or  implied  decimal-point  location  of  an  item. 


0.19.3,4  Comparison  of  Non-Numeric  Items:  For  non-numeric  items 
a  comparison  determines  that  one  of  the  items  is  less  than,  equal  to 
or  greater  than  the  otiier  with  respect  to  the  binary  collating  sequence 
of  characters  in  the  ASCII  character  set.  If  the  non-numeric  items 
are  of  equal  length,  the  comparison  proceeds  by  comparing  characters 
in  corresponding  character  positions  starting  from  the  high-order 
position  and  continuing  until  either  a  pair  of  unequal  characters  or 
the  low-order  position  of  the  item  is  compared.  If  the  non-numeric 
items  are  of  unequal  length,  comparison  proceeds  as  describee  for 
items  of  equal  length.  If  this  process  exhausts  the  characters  of  tne 
shorter  item,  the  shorter  item  is  less  than  the  longer  unless  the 
remainder  of  the  longer  item  consists  solely  of  spaces,  in  which  case 
tlie  items  are  equal. 

Table  10  indicates  characteristics  of  the  compared  items  and  the 
type  of  comparison  made. 

0.19.4.4  Conditional  Statements  witii  Lxcception  i.rancncs:  I  he 
I  orniat  of  these  statements  is: 

Cvi  LJsJi 

U.wTTTii  ki:y 
(T7rrrr:i.  ~nnroi< 

The  KLAI  ,  khTURh  ,  l.RIYi  ,  Rl.hiUTh,  Oi.Ll.Tl. ,  ADJ. ,  SUhTRACi,  MUl/l  1 F  1.1  , 
anu  ul\li)).  verbs  Specify  tne  exception  urancii  as  eituor  an  optional  or 
a  required  part  of  ti.c  s  tat  emeu  l  ,  When  tiie  exception  branch  is  present, 
the  verb  in  wnose  lormat  it  is  written  is  considered  to  be  a  condition¬ 
al  statement.  Normally,  control  bypasses  the  exception  branch  to  the 

1  (.  1 


|lmperat  ive-statementsj 


Item  Characteristics 


OR  X  M) 


Croup  Item 

GR 

A  A 

A 

Alphabetic , 

Alphanumeric , 
and  Edited 

X 

A  A 

A 

Numeric  Display 

Nl) 

A  A 

9 

A.  Alplianumer  i  c  or  byte 
right . 

compar ison , 

byte-by-byte  from 

left  to 

9.  Numeric  comparison. 

first  statement  in  t lie  next  sentence  or  the  first  statement  beyond  tin. 
next  ELSE  (within  an  IP  statement),  but  when  the  exception  condition  i 
rcet,  control  is  given  to  the  imperative-statement  f  ol  low  ini;  the  AT 
END,  INVALID  KEY,  or  SIZE  ERROR.  Rone  of  the  statements  up  to  the 
next  period  or  ELSE  (within  an  IE  statement)  may  be  a  conditional 
statement:  thus  "nesting"  of  exception  branches  is  not  allowed. 

(i .  1 9  .  1 .  3  Nested  Conditional  Statements  :  Ihe  IE  statement  may 

have  conditional  statements  in  either  of  the  branches  taken  oecause 
of  the  outcome  of  the  condition  test.  furthermore,  tne  conditional 
statement  can  be  another  IE,  thus  it  is  possible  to  "nest"  IPs  (in 
other  words,  I  Is  may  be  contained,  within  IPs).  Refer  to  the  "If 
"tatement"  discussion  (Section  o . 1  ‘J  .  8  .  1  0 )  . 


(■  1  9  .  5  Input/(\itput  Statements: 

6.19.5.1  OPEN  Statement:  The  p.eneral  format  of  this  statement 
i  s : 


OPEN 

[INPUT 

[file-namej  .  .  .j 

[OUTPUT 

[file-name]  .  .  .] 

[extend 

[file- name]  .  .  .] 

[i-o 

[file-name]  .  .  .] 

The  OPEN  statement  initiates  processing  of  the  files  named  in 
the  statement. 

Cne  of  the  INPUT,  OUTPUT,  EXTEND  or  1-0  options  must  be  specifi¬ 
ed.  The  I -0  option  pertains  only  to  files  on  direct  access  media 
used  when  ACCESS  IS  RANDOM  is  specified. 

The  EXTEND  option  means  that  the  file  is  to  be  opened  for  output 
and  that  new  records  are  to  be  added  after  the  last  record  currently 
in  the  file. 

An  OPEN  statement  must  be  executed  prior  to  any  other  input/ 
output  statement.  A  second  OPEN  statement  for  a  given  file  cannot 
he  executed  prior  to  the  execution  of  a  CEPSE  statement  for  that  file. 
The  OPEN  statement  itself  does  not  obtain  or  dispatch  data;  a  READ  or 
WRITE  statement  must  execute  to  obtain  or  release,  respectively,  the 
first  data  record. 

6.19.5.2  START  Statement:  The  START  statement  provides  a  means 
(or  1  o c ’c a  1  positioning  within  an  indexed  file  for  subsequent  sequen¬ 
tial  retrieval  of  records. 
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Format : 


ST  ART  file-name  [KEY  IS 


^ I NV ATI U  KEY  impcrati ve-statement 


•  When  the  START  statement  is  executed,  the  associated  file  must 
be  open  in  INPUT  or  1-0  mode. 

File -name  must  name  an  indexed  file  with  sequential  or  dynamic 
access.  File-name  must  be  defined  in  an  FD  entry  in  the  Data  Division. 

When  the  KEY  option  is  not  specified,  tiie  EQUAL  T(  relational 
operator  is  implied.  When  the  START  statement  is  executed,  the  EQUAL 
TO  comparison  is  made  between  the  current  value  in  the  RECORD  KEY  and 
the  correspond in°  key  field  in  the  file's  records.  The  Current  Record 
pointer  is  positioned  to  the  logical  record  in  the  file  whoso  key 
field  satisfies  the  comparison. 

When  the  KhY  option  is  specified,  data  -  name  may  be  cither: 


The  RECORD  KEY  for  this  file,  or 


Any  alphanumeric  data  item  subordinate  to  tnc  RECORD 


KHY  whose  leftmost  character  position  corresponds  to  the  leftmost 
character  position  of  the  Rl. ('.PRL)  KhY  (that  is,  a  generic  key). 

When  the  START  statement  is  executed,  the  comparison  specified 
in  the  KRY  relational  operator  is  made  between  data-name  and  the  key 
field  in  the  file's  records.  The  Current  Record  Pointer  is  position¬ 
ed  to  the  first  locical  record  in  the  file  whose  key  field  satisfies 
the  comparison. 

If  the  comparison  is  not  satisfied  by  any  record  in  the  file,  an 
INVALID  KhY  condition  exists,  and  the  position  of  the  Current  Record 
Pointer  is  undefined. 

6.19.5.3  RLAD  Statement:  For  sequential  access,  the  READ  state 
merit  makes  available  the  next  logical  record  from  file.  For  random 
access,  the  READ  statement  makes  available  a  specified  record  from  a 
file. 

The  formats  of  this  statement  are: 

Format  1: 

READ  file-name  ] N IX 1 j  RECORD  f I NTP  identifier] 

]AT  E.ND  imperative-statement] 

Format  2: 

READ  file-name  RECORD  [  INTO  identifier];  INVALID  KEY 
imperat ive-statement 

(unctions  of  the  READ  verb  are: 


1.  Sequential  file  processing  (Format  1)  makes  available  the 
next  logical  record  from  an  input  file  and  allows  execution  of  a 
specified  series  of  imperative-statements  when  the  end-of-file  is 
detected . 

2.  Random  file  processing  (Format  21  makes  available  a  specific 
record  from  an  indexed  file  and  allows  execution  of  a  specified 
series  of  imperative-statements  if  the  contents  of  the  associated 
RECORD  KLY  data  item  are  found  to  be  invalid. 

When  the  Rl.Al)  statement  is  executed,  the  associated  file  must  be 
open  in  INPUT  or  1-0  mode. 

File -name  must  be  defined  in  an  FD  entry  in  the  Fata  Division. 

Format  1:  When  ACCESS  MODI!  SEQUENT! A I.  is  specified  or  assumed 
for  a  file,  this  format  must  be  used.  For  such  files  the  statement 
makes  available  tiie  next  logical  record  from  the  file.  lor  indexed 
files,  the  NEXT  option  need  not  be  specified;  for  sequential  files, 
the  NEXT  option  must  not  be  specified. 

h'jun  ACCESS  MODI.  DYNAMIC  is  specified  for  indexed  files,  the 
NEXT  option  must  bfc  specified  for  sequential  retrieval.  For  such 
files,  tiie  READ  NEXT  statement  makes  available  the  next  logical  re¬ 
cord  from  tiie  file. 

before  .i  Format  1  READ  statement  is  executed,  tiie  Current  Record 
Pointer  must  be  positioned  by  the  successful  prior  execution  of  an 
OPEN,  START,  or  Ri.AD  statement.  When  the  Format  1  READ  statement  is 
executed  the  record  indicated  by  the  Current  Record  Pointer  is  maue 
available.  For  sequential  files,  the  next  record  is  tnc  succeeding 


record  in  logical  sequence.  Tor  a  sequentially  accessed  indexed 
file,  the  next  record  is  that  one  havin'!  the  next  higher  RhCORD  KEY 
in  collating  sequence. 

Format  2:  This  format  must  he  used  for  indexed  files  in  random 
access  mode,  and  for  random  record  retrieval  in  the  dynamic  access 
mode . 

Execution  of  a  Format  2  REAL)  statement  causes  the  value  in  tue 
RECORD  KEY  to  be  compared  with  the  values  contained  in  the  correspond 
ing  key  field  in  the  file's  records  until  a  record  having  an  equal 
value  is  found.  The  Current  Record  Pointer  is  positioned  to  this 
record,  which  is  then  made  available. 

If  no  record  can  be  so  identified,  an  INVALID  KEY  condition 
exists,  and  execution  of  the  READ  statement  is  unsuccess ful . 

Immediately  following  execution  of  a  READ  statement,  the  next 
logical  record  in  the  file  is  accessible  in  the  logical  record  area 
associated  with  the  file  as  defined  by  the  Record  Description  entry. 
Then  multiple  record  uescriptions  follow  a  File  Description  (FD) 
entry,  it  is  the  responsibility  of  the  programmer  to  recognize  which 
record  is  present  in  the  area  at  any  given  time.  The  record  is  avail¬ 
able  in  the  logical  record  area  until  another  READ  statement  or  a 
('LOSE  statement  for  tiiat  file  is  executed. 

The  INTO  option  is  equivalent  to  a  READ  statement  followed  by  a 
"‘VE,  and  results  in  the  record  obtained  by  execution  of  the  READ 
becoming  available  in  hot li  the  record  area  for  the  file  and  in  tnc 
location  indicated  by  the  identifier.  The  record  is  moved  from  the 


record  area  into  the  identifier  in  accordance  with  the  rules  for  the 
MOVE  statement. 

In  the  case  where  the  file  contains  records  of  varying  lengths, 
the  size  of  the  longest  record  is  assumed  for  the  input  record  for 
the  purpose  of  executing  the  MOVE. 

IJie  AT  END  clause  is  required  for  files  that  are  accessed  se¬ 
quentially.  The  statements  introduced  by  this  clause  are  executed 
when  end-of-file  is  encountered. 

for  files  with  SEOIJENTIA  1.  organization,  when  the  AT  INI)  condition 
lias  been  recognized,  a  READ  statement  for  this  file  must  not  be  exe¬ 
cuted  until  a  successful  CLOSE  statement  followed  by  a  successful 
OPEN  statement  iias  been  executed  for  this  file. 

For  files  with  INDEXED  organization,  when  the  AT  END  condition 
is  recognized,  a  Format  1  REM)  statement  for  this  file  must  not  be 
executed  until  one  of  the  followin’,  has  been  successfully  executed: 

A  CLOSE  statement  followed  by  an  OPEN  statement 

A  Format  2  READ  statement  (dynamic  access') 

A  START  statement 

The  INVALID  KEY  clause  must  be  written  for  files  for  which  ACCESS 
IS  RANDOM  is  specified.  Tnc  imperative-statements  are  executed  if  a 
record  corresponding  to  the  contents  of  the  RECORD  K1  Y  cannot  be 
located  in  the  file. 

The  contents  of  the  RECORD  KEY  data  item  must  be  appropriately 


established  prior  to  execution  of  the  Rl-.AD  statement  itself. 


6.19.5.4  WRITG  Statement :  The  formats  of  this  statement  are: 


format  1: 


ADVANCING 


{identifier-2  LINGS/ 
integer-1  LINGS 
PAG  H 


format  2: 

WRITG  record-name  1 1:  < (M  ident i f ier- lj  ;  INVALID  KGY 
imperative  statement 

The  WRITG  statement  releases  a  logical  record  to  an  output  file, 
for  random  access  files  the  statement  also  allows  execution  of  a 
specified  series  of  imperat ive - s tatements  if  the  contents  of  the 
associated  RGCCRD  KGY  data  item  are  found  invalid. 

An  OPGN  OUTPUT,  OPGN  GXTGN1),  or  OPGN  INPUT-OUTPUT  must  be  execut¬ 
ed  before  a  WRITG  statement  can  be  executed  for  a  file.  Once  the 
WRITG  is  executed  tiiere  is  no  guarantee  that  the  logical  record  re- 
leaseu  thereby  still  exists  in  the  logical  record  area  for  the  file. 

A  UP  ITT.  statement  bearing  the  FROM  option  is  equivalent  to  a  MOVG 
identifier-1  TO  record-name  statement  followed  Gy  WRITG  record-name. 
‘Tuvin*:  takes  place  in  accordance  with  rules  for  the  MOVG  statement. 

Iarmat  1  relates  to  files  opened  for  sequential  access.  The 
ADVANCING  option  applies  to  files  containing  output  destined  to  be 
printed.  Integer- 1  should  be  an  unsigned  integer,  and  ident i f ier- 2 , 


similarly,  siioulu  contain  a  non-negative  integer.  The  line  is  print¬ 
ed  BLFORI:  or  AFTi  R  the  specified  number  of  lines  is  spaced. 


Format  L  is  used  for  mass  storage  files.  Statements  following 
tiie  INVALID  KTY  clause  are  executed  when: 

1.  No  space  exists  on  the  file  media  to  accommodate  tnc  record. 

2.  The  file  is  open  for  ClJTPhT  or  I  - < '  and  a  record  correspond¬ 
ing  to  tiie  contents  of  the  RLC<  Rl)  KTY  already  exists  in  the  file. 

0.19.5.5  Rl.hRITL  Statement :  The  format  of  this  statement  is: 

kil.UI  Tli  record-name  f l-KOl  ident if  ier- l]  ;  1M  Al.ll)  Ki.Y 
impera live -statement. 

'iiic  K  I.i.  iv  I  i  i  statement  rewrites  a  previously  read  logical  record 
to  tiie  output  file.  hie  statement  also  allows  execution  of  a  specifi¬ 
ed  series  of  imp*.  rat  i  ve- s  ta  t  emeu  t  s  if  the  contents  of  tiie  associated 
RltlfRP  1.1  V  oat  a  item  are  found  invalid. 

Aj:  U’LN  1  -  (  must  he  executed  before  a  RI.KR1TI  statement  can  be 
executed  for  a  file.  Cnee  the  RFWRITL  is  executed  tiiere  is  no  guar¬ 
antee  that  the  logical  record  rewritten  still  exists  in  the  logical 
record  area  for  the  file. 

The  statements  following  the  INVALID  KI.Y  clause  arc  executed  when, 
the  record  corresponding  to  the  contents  of  the  RhCbkD  kl'.Y  clause  was 
not  previously  read. 

<>.1'.'.5.(>  1 H:  1,1.  T I  Statement:  The  format  of  tnis  statement  is: 

PI  !  CT)  f  i  J  ('  -  name  ;  I  NV  A  I,  I  H  K  1  >  i  npe  r  a  t  i  ve  -  s  t  a  t  omen  1 


r 


The  i > I’  1.1:11:  statement  deletes  a  logical  record  from  the  output 
file.  The  statement  also  allows  execution  of  a  specified  series  of 
imperative-statements  if  the  contents  of  the  associated  RLCOPJ)  Kl.Y 
data  item  are  found  invalid. 

An  PPLN  1-0  must  he  executed  before  a  Dh'LLTI:  statement  can  he 
executed  for  a  file. 

The  statements  following  tiic  INVALID  K1Y  clause  are  executed 
when  the  record  corresponding  to  the  contents  of  the  Rl.CGP.D  KEY 
clause  is  not  found  in  t)ie  file. 

h.l(.>.5.7  CLOSi:  Statement:  The  format  of  this  statement  is: 

('LOST  [filc-nnncl  [iVITI:  lU.I.LTl]  .  .  . 

The  Cl.  OSH  statenent  terminates  the  processing  of  files.  Lxecu- 
tion  of  a  CLOSI.  statement  causes  the  standard  closing  procedures  tc 
he  carried  out  on  the  file  named.  An  OPLX  statement  must  be  executed 
before  a  CLOSI.  can  be  honored  for  a  file;  once  closed,  a  file  may  not 
be  referenced  aynin  until  another  PPLN  statement  is  executed  for  that 
file. 

If  the  DLI.LTL  option  is  specified,  all  records  in  the  file  will 
be  deleted. 

h  .  1 11 .  5  .  K  APPhP'i  Statement:  The  format  of  this  statement  is: 

•\(  PLOT  identifier-1  [,  i  dent  i  f  i  er- 2  J  .  .  . 

l'he  At.Cl.PT  statement  specifics  acceptance  of  data  from  t lie  CRT. 
It  is  normally  used  to  read  unprotected  CRT  fields. 
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The  identifier  must  he  an  unedited  DISPLAY  data  item  or  a  y  rouj 


item.  Refer  to  the  operations  manual  for  additional  information  on 
reading  unprotected  fields  from  the  CRT. 

h  .  1  9 . 5 . 9  I)  ISP  I,  AY  Statement:  The  format  of  this  statement  is; 

DISPLAY  fi  dent  i  f  i  er-  1 
J 1 i t era  1  -  1 

The  DISPLAY  statement  enables  data  to  he  written  to  the  CRT. 

I; hen  a  DISPLAY  statement  contains  more  than  one  operand,  tne  char¬ 
acters  comprising  the  items  named  and  any  literals  specified  in  tne 
statement  are  d i splay cu  consecutively,  with  no  spaces  between  cinar 
acters  unless  specified. 

Any  remainin'’  positions  on  a  line  at  the  end  oi  the  data  t  ran  •• 
fer  are  left  unchanged .  Any  number  of  literals  or  data  names  mav  be 
specified.  The  data -name  may  i>c  that  of  a  "roup  or  an  elementary 
item  and  may  also  be  subsc i  < pted .  A  literal  in  a  DISPLAY  statement 
may  be  numeric  nr  non-numeric  and  may  he’  a  hexadecimal  constant  to 
specify  CRT  or  ielel  attributes. 


identifier- 
1  i  teral- L 


Lx  amp  1 c : 

DISPLAY  PR  I  NT- 1  INL. 

o.lP.o  AKnii.VLIIe.  Statements  :  I'ho  basic  a  r  1 1  h;no  t  i  c  i>p  t  i  on  s  arc 

specified  Lv  the'  'our  verbs  ADD,  SDl'TRAe  1  ,  Mil  1  I  I P 1  ,  ..nd  DI\  id.. 

o  .  j  p  .  o  .  1  Doles  for  '■  r  i  t  h  no  t  i  c  Verl’S  :  i  tie  i  o  1  1  ov.  i  n  ■  ■  ■  o no r a  i 


rules  applv  to  all  arithmetic  verbs: 


1.  All  literals  specified  in  arithmetic  statements  must  be 
numeric . 

An  identifier  used  in  an  arithmetic  statement  must  be  an 
elementary  item  and  must  be  numeric. 

2.  The  maximum  size  of  an  operand  is  15  decimal  dibits.  If  the 
entry  for  an  operand  in  the  DATA  DIVISION  specifies  a  size  greater 
than  15  digits  or  if  a  literal  contains  more  than  15  digits,  an  error 
is  indicated  at  compilation  time. 

3.  The  items  in  an  arithmetic  statement  may  be  mixed  sizes  as 
long  as  they  are  all  numeric.  Any  necessary  decimal-point  alignment 
is  supplied  automatically  throughout  computations. 

4.  No  item  used  in  computations  may  contain  editing  symbols. 

If  such  an  item  is  used,  a  compilation-time  diagnostic  results.  Oper¬ 
ational  signs  and  assumed  decimal  points  are  not  editing  symbols.  An 
item  used  to  receive  results  may  contain  editing  symbols  if  it  is  not 
used  in  subsequent  computations  as  an  operant.  When  an  item  used  to 
receive  results  contains  editing  symbols,  the  result  is  edited  accord¬ 
ing  to  editing  specifications  before  it  is  moved  to  the  item. 

ROUNDED ,  HIVING  and  SIZE  ERROR  options  apply  to  all  arithmetic 
statements . 

b. 19.6.2  GIVING  (ption:  If  the  GIVING  option  is  written,  the 
value  of  the  identifier  that  follows  the  word  GIVING  is  made  equal  to 
the  calculated  result  of  the  arithmetic  operation. 

If  the  GIVINC  option  is  not  written,  each  operand  following  the 
words  TO,  FROM,  BY,  and  INTO  in  the  ADD,  SUBTRACT,  MULTIPLY,  ana 
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DIVIDL  statements,  respectively,  must  be  an  identifier  (not  a  literal 
tach  identifier  is  used  in  the  computation,  and  also  receives  the 
result . 

6.19.6.5  RUJNUhn  Option:  If  the  KOUNl'bl)  option  is  not  specified, 
truncation  occurs  when  the  number  of  places  calculated  (after  uecimal 
-point  alignment)  for  the  result  is  greater  than  the  number  of  places 
in  the  data  item  that  is  to  be  set  equal  to  tiie  calculated  result. 

When  the  ROUNDbu  option  is  specified,  the  least  significant  uigit  of 
the  resultant  data-name  increases  in  value  by  1  whenever  the  most 
significant  digit  of  the  excess  is  greater  than  or  equal  to  S. 

hounding  of  a  computed  negative  result  is  performed  by  rounding 
the  absolute  value  of  the  computed  result  and  then  making  the  final 
result  negative. 

Table  11  illustrates  the  relationship  between  a  calculated  result 
and  the  value  stored  in  an  item  that  is  to  receive  the  calculatcu 
result . 

6.19.6.4  SIZh  LRKOR  fption:  An  arithmetic  statement,  if  written 
with  a  SIZF.  T.RUOk  option,  is  not  an  imperative-statement.  Rather, 
it  is  a  conditional  statement  and  is  prohibited  in  contexts  wnere  only 
imperative-statements  are  allowed. 

Whenever  tnc  number  of  integer  places  in  the  calculated  result 
exceeds  the  number  of  integer  places  specified  for  tiic  resultant  item, 
a  size  error  condition  arises.  If  tiie  SIZL  LRROR  option  is  specif ieu 
and  a  size  error  condition  arises,  the  value  of  the  resultant  item  is 
not  altered  and  the  series  of  imperative-statements  specified  for  the 
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Table  11.  Rounding  or  Truncation  of  Calculations 


CALQJ  LATED 

RLSULT 

PICTURE 

VALUE  AFTER  VALUE  AFTER 

ROUNDING  TRUNCATING 

-12.36 

S09V9 

-12.4 

-12.3 

8.452 

9V9 

8.4 

8.4 

35.0 

99V9 

35.6 

35.6 

65.6 

99V 

66 

65 

0.0055 

V999 

0.006 

0.005 

condition  is  executed. 

If  the  SIZE 

ERROR  option 

is  not  specified 

and  a  size  error  con- 

dition  arises,  no 

assumption  should  be  made  about  the  correctness  of 

the  final  result 

even  though  the  program  flow  is  not  interrupted. 

6.10.0.5  Aid 1 1  Statement: 

The  formats  of  this  statement  are: 

Format  i: 

ADD 

[identifier-! 

Jliteral-1 

'  T,  identifier-2 
’  [, literal-2 

|  .  .  .  ,  identifier-n 

[  FOUNDED]  [ON  SIZli 

ERROR  imperative 

-statement] 

format  2: 

ADD 

Tident  i  f  i  cr- 1 
[literal-1 

f,  i  dent  i  f  i  er- 2| 
[,  literal -2  J 

.  .  .  TC  identifier-m 

|  RUINUED]  [('N  SIZE  ERROR  imperative-statement] 


175 


Format  5: 


ADD 

[identif  ier-  f 

t 

identil'icr-2 

,  identif ier-5l 

jl  i  teral-  1 

1 i tera 1-2 

.literal -3  J 

C IV  1  MG  identifier-m  f  ROUNPF.D  j  f  ON  K I  Z I:.  I-RRPR  impcrat  i  ve¬ 
st  at  emeriti  *■  ^  ^ 


The  AJ)J)  statement  sums  the  values  of  two  or  more  numeric  items 
and/or  literals  and  sets  one  or  several  items  equal  to  the  resultant 
value.  Operands  used  in  an  ADD  statement  must  conform  to  "Rules  for 
Arithmetic  Verbs"  (Section  6.19.6.1)  in  addition  to  specific  rules 
applying  to  this  individual  statement.  Use  of  the  SIZF  iiRROR  and 
ROUNDF.l)  options  is  also  discussed  in  the  referenced  paragraph. 

When  Format  1  is  used  the  values  of  all  the  operands  including 
identifier-n  arc  added  together  and  the  result  is  stored  as  the  new 
value  of  identifier-n,  the  resultant- ident if ier . 

Hx  ample :  (liven  the  statement  ADI)  A,  U,  C ,  the  values  of  A,  1), 
and  C  before  and  after  execution  are: 


A 

B 

c: 

before 

5 

6 

8 

After 

5 

6 

19 

Note  that  the  value  of  A  and  B  do  not  change  as  the  result  of 


the  addition. 


Format  2  adds  the  values  of  the  operands  ( ident i f ier- 1  or  literal 
1  and  identifier-2  or  literal-2)  preceding  the  reserved  word  TO, 
and  this  intermediate  result  is  added  to  the  data  items  specified  by 
ident i f icr-m,  i dent i f i cr-n ,  etc. 
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Example:  Given  the  statement  ADD  It,  X,  Y  to  Z,  the  values  of 
K,  X,  Y  and  Z  before  and  after  execution  are: 


IV 

X 

Y 

z 

before 

2 

7 

8 

12 

Af  ter 

2 

7 

8 

29 

Note  that 

the  value 

of  all  operands  participates  in  the 

add i t i on 

Format  3 

adds  the  values  of  the  operands 

(identifier-1  or  liter- 

al-1  and  identifier-2  or 

literal-2,  etc.)  preceding  the  reserved  word 

GIVING,  and  this  intermediate  result  is  placed 

in  identifier- 

m,  iden- 

tifier-n,  etc. 

Example : 

Given  the 

statement  ADD  A,  B,  C 

,  GIVING  I),  the 

values 

of  A,  B,  C,  and  I)  before 

and  after  execution  are: 

A 

B 

c 

D 

Before 

1 

2 

3 

5 

After 

1 

2 

3 

b 

Note  that  the  intermediate  result  replaces  the  value  of  1>  and  is 
not  added  to  0. 

ft. 19. ft. 6  SUBTRACT  Statement:  The  formats  of  this  statement  are: 


Format  1: 

SUBTRAGT  (identifier- 1] 

,  identifier-2 

[liter al-1  j 

,  literal-2 

Hji£l  idcnt i  f  ier-m  [ROUNDED]  [ON  SIZ1  ERROR  imperative- 
statement] 
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Format  2: 


SUBTRACT 

'identif  ier-  l' 

",  identif ier-2' 

literal-1 

literal-2 

"identif  ier-m' 

literal-m 

GIVING  identifier- 

[ON  S I Z F  ERROR  imperative-statement] 


.  .  .  FROM 


[ROUNDED  ] 


The  SURTRA(T  statement  subtracts  the  value  of  a  numeric  item 
from  another  item  and  stores  the  result  in  a  third  item. 

Format  1  subtracts  the  operands  preceding  the  word  FROM  from 
identificr-m  placing  the  result  in  identif ier-m. 

Format  2  subtracts  the  operands  preceding  the  word  FROM  from 
identif ier-m  (literal-m)  without  changing  the  contents  of  identifier 
m,  placing  the  result  in  the  item  following  GIVING. 

Example :  Given  the  statement  SUBTRACT  A  FROM  B  (JIVING  C  the 

values  of  the  operands  before  and  after  execution  are: 

ABC 


Before 

ID 

80 

90 

After 

10 

8  0 

70 

0.19.0.7  MULTIPLY  Statement: 


Format  1: 


MU  I.TIPl.Y  ["identifier-  1 
Jliteral-1 


The  formats  of  this  statement  are 


BY  identifier-2  [ROUNDED] 


[ON  S I Z F.  ERROR  imperat ive- statement] 


Format  2: 


MULTIPLY  p.dentifier-1]  BY  idcntifier-2  GIVING 

literal-1  J  literal-2 

identifier-3  ^ROUNDEPj 

The  MULTIPLY  statement  can  be  used  to  multinly  two  items  with 
the  value  of  a  third  item  bein^  set  to  the  product.  Operands  used  in 
a  MULTIPLY  statement  must  conform  to  "Rules  for  Arithmetic  Verbs", 
(Section  6.19.6.1),  in  which  the  SIZE  ERROR  and  POUNDED  options  are 
also  discussed . 

Format  1  allows  the  multiplicand  (identif ier- 1  or  literal-1)  to 
be  multiplied  by  the  multiplier  (identifier-2)  and  the  value  of 
identifier-2  to  be  set  to  the  product.  A  literal  cannot  be  used  in 
place  of  identif ier- 2 . 

Example :  Given  the  statement  MULTIPLY  A  BY  fc  the  values  of  the 

operands  before  and  after  execution  are: 

A  Ii 


Bef  ore 

10 

20 

Af  ter 

10 

200 

Note  that  the  values  of  operand  B  chanye  to  reflect  the  multiplication. 

Format  2  allows  the  multiplicand  ( ident if ier- 1  or  literal-1)  to 
be  multiplied  by  the  multiplier  (ident if ier- 2  or  literal-2). 

Example :  Given  the  statement  MULTIPLY  A  FY  l:  GIVING  C  the  values 
of  t nc  operands  before  anu  after  execution  are: 
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A 


1, 


C 


Before  5  10  20 

After  5  10  50 

Note  that  the  values  of  operands  A  and  B  remain  the  same,  while  the 
value  of  operand  C  changes. 


0.19. 6. 8  DIVIDE  Statement:  The  formats  of  this  statement  are: 

Format  1: 

DIVIDE  fidentifier-l]  INTO  identifier-2  [  ROUNDED] 
(literal- 1  | 

[ON  SI ZE  ERROR  imperative-statement] 


Format  2: 


DIVIDE 

fident  if  ier-l) 

INTO 

fidentif  ier-  Z) 

GIVING 

[literal-1  \ 

|l iteral- 2  | 

identifier-5  ROUNDEL)]  [  ON  S I  ZE  ERROR  impera  t  i  vc- s  tatement] 


Format  3: 


DIVIDE  ' 

| ident  if  ier-l] 

i  BY  fidentif ier- 2 

lliteral-1  ] 

I  lliteral-2 

ident  i  f  ier- 5  R(XJNPHP]  [on  SIZE  ERROR  imperative-statement] 


The  DIVIDE!  statement  divides  the  value  of  one  numeric  item  into 
the  value  of  one  or  more  numeric  items  anu  sets  the  value  of  one  or 
more  items  to  the  quotient.  Operands  used  m  a  DIVIDE  statement  must 
conform  to  "Rules  for  Arithmetic  Verbs",  Section  (». ID. 0.1,  in  audition 
to  specific  rules  applying  only  to  this  individual  statement.  Use  of 
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the  SIZi;  FUROR  and  R(UM)lil)  options  is  also  discussed  in  the  reference 
paragraph. 

Format  1  allows  one  division,  with  the  quotients  stored  as  t iie 
value  of  the  item  following  INTO.  The  dividend  ( ident i f ier- 2)  divided 
l>y  the  divisor  ( identi f ier- 1  or  literal-1)  and  the  value  of  the 
dividend  set  to  the  value  of  the  associated  quotient.  literals 
cannot  be  used  in  place  of  ident if i ers- 2 .  The  size  error  condition 
results  when  the  divisor  is  zero  or  the  quotient  contains  more  integer 
positions  than  are  available. 

hxample :  Given  the  statement  DIV1DL  A  I  NT  C  b  the  values  of  the 
operands  before  and  after  execution  are: 

A 

before  5 

After  5 

Format  2  allows  the  single  quotient  resulting  from  a  division  to 
be  stored  in  a  third  item.  If  Format  2  is  used,  the  dividend  (ident¬ 
ifier-2  or  literal-2)  is  divided  by  the  divisor  (identif ier- 1  or 
literal-1),  and  the  value  of  the  resultant  quotient  becomes  the  new 
value  of  identif iers- 3 . 

hxample :  Given  the  statement  DIVIDF  A  INTO  I.  GIVING  C  the  values 

of  the  operands  before  and  after  execution  are: 

A  b  G 

before  N  10  15 

5 


b 

10 


1  a  1 


After 


10 


2 


The  types  of  MOVL  statements  are  discussed  in  the  following 


paragraphs . 

b.lP. 7.1.1  Alphanumcr ic  Moves:  Source  data  is  stored 
left- justif ied  in  the  receiving  area.  Jf  tnc  receiving  area  is  not 
completely  filled  by  data,  remaining  positions  arc  filled  with 
spaces.  If  the  receivin'.’  item  is  alphabetic,  it  is  treated  as  alpha¬ 
numeric. 


hxamp les 
Source  Data 


T 

z 

1~A  1  f  171  TT 


I’llhliU  of 
Kecc  i  v  i  ny;  Item 

A ( 4  )  or  X ( 4 ) 

A(S)  or  X ( S ) 


Receiving  Item 

nn'~  Kim 

I  A  I  h  I  Cl  111  A 


iAj 

_L_ 

UL 

D  1  2  3  Xm  I  A 

■> 

_£j 

D  1 

2  5  A 

LLu 

rn 

x  ( s )  LL 

2 

□ 

A  A 

AAA 

a 

a 

T 

d)  A(  3 )  or  X  ( 3 )  I  A 

1)  C 

If  the  receiving  item  is  alphanumeric,  the  literal  may  be 
any  literal  or  figurative-constant.  If  tiie  figurative-constant  takes 
the  form  of  ALL  any-literal,  the  literal  must  be  enclosed  in  quotation 
marks  and  is  considered  an  alphanumeric  item.  Ine  size  of  an  Al.l 
any-literal  item  is  determined  by  the  size  of  the  receiving  item,  with 
characters  repeated  from  left  to  right. 


l.xamplcs : 

ph:turi.  of 

Source  Data  Kecciv ing  I  Lem  Receiving  item 


'  Ai.CD  ’ 


XH) 


Q] 

DO 

LZJ 

QD 

I 


123' 


X(3) 


Editing  occurs  nftcr  decimal  point  alignment.  Editing  symbols  in 
tbe  receiving  item  (currency  si  pus,  commas,  etc.),  make  this  item 
•t]  bhanumer  ic ;  if  it  is  subsequently  referenced  as  a  source  item  in 
a  VOX  l  statement,  it  is  moved  in  accordance  with  the  rules  for 
alphanumeric  items. 


Examples  : 


Source  Data 


1  1-13  4  5 


1’ICTllRh  of 
Receiving  Item 


$**9.99 


Receivin'’  Item 


1— g  III  21  31  .  4  5 


-1  I  2  I  3  l  4  1  5 

TTo  l  0  I  1  1  2 

- 


999.9 


$**9.99 


1 J  2  3 


$  *  *  0 


If  the  receiving  item  is  numeric  or  numeric  edited,  the 
literal  can  be  any  numeric  literal  .  The  point  location  and  size  of 
the  literal  are  determined  by  the  actual  literal  in  the  source 
statement.  Further  examples  of  editing  arc  yiven  in  "PICTURE  Clause 
under  "DATA  DIVISION  Structure"  in  Section  0.18.0. 11. 


Fxamples  : 


Source  Data 
+  1.23 


+  1.23 


PICTURE  of 
Receiving  Item 

S9V99 


Receiving  Item 


1  2  3 


I  1  I  2 


0  0  1  2  3 


9999V 99 


0  1  3 1  71  0 


<;***<>.  9 


'fai'le  1  2  .  I't’Miii. ss;l 


e  -over 


Source  !  ter; 

See  e  i  v  i  ii"  i;  i  e  JUI 

iiK  A  A  i ) 

A  roup  i  i  )v 

\  .\ 

, 

• 

A 

,i 

'Miner  r  ■'  literal 

A 

C  i  i  t;  e  i  ; :  i 


;  :.U 

>  .  .1.  , 

V.  »  ;  .  i 


I  !  *  ;  : 


•.'i  t  t  •••  r  :  ■  i 


-(  t  i.i  i  ;  : 


.  ■■  !  ■:  j  j i  t  <'  <’'i 

■  i--.  itr,  .;  l  •'  !  ■  e  v  i  O  l  i:icu  . 


i  e  1 A  cause  tiai.roe  i  c  i.  - 


..  i  il  Cl  Sr  ate;-:  eat :  I  lie  l  NS  I’ I  Cl  s  (  a  t  ei  kmi  t  rev  ices  t  ne 

;  i  ■  i  * "  ’  f  t  ^  ; :  [  ■  ■  ■  '•  i  i!i.!  r;;i'  1  l'I’’'  !  i  i  .  •  <■  i  i  1  ■  1  I  1  U  . 


\ S i ■  i  i  i  ulent  i  .  •  e  r  -  1  >'i  :‘l.  Ai'  1 


•  i']  M'r  \ 


u.i.  nr  i  !  U'  r 

1  i  t  l*  J'  ;i  )  -  i 


:».!<.  • ;  t  !  1  ’Ll'- 
*  r  c  *  t  ;  i  ■  *• 


this  PA&£.  iS  OiSI  QUALITY  PRACIIOiART-^ 
OOtY  fUNHlsHED  TO  DDC  - — »> - ’ 


Idcntifier-1  must  reference  either  a  group  item  or  any  category 


of  an  elementary  item,  described  implicitly  or  explicitly  as  USAGE 
IS  DISPLAY.  Identificr-2  through  identifier-3  must  reference  a  one 
byte  elementary  alphabetic,  alpiianumeric ,  or  numeric  item  described 
implicitly  or  explicitly  as  USAGE  IS  DISPLAY.  I.itcrals  must  be  non¬ 
numeric  and  may  be  any  figurative  constant  except  ALL. 

Rules  Applicable  to  All  Formats:  Inspection  begins  at  the 
leftmost  position  of  tiie  data  referenced  by  identifier-1,  regardless 
of  its  class,  and  proceeds  on  a  character-hy-charactcr  basis  to  the 
rightmost  character  position.  The  contents  of  the  data  item  referenced 
hv  identifier-1  is  treated  subject  to  whether  the  identifier  is 
discribed  as  alnhanumer ic ,  unsigned  numeric,  or  signed  numeric: 

1.  Alphanumeric  -  identifier  treated  as  a  character  string. 

2.  Unsigned  numeric  -  inspected  as  though  it  had  been  redefined 

as  alpiianumeric  and  the  INSPECT  statement  had  been  written  to  reference  i 

j 

i 

the  redefined  data.  , 

j 

3.  Signed  numeric  -  inspected  as  though  the  data  item  had  been  j 
moved  to  an  unsigned  numeric  data  item  of  the  same  length,  subject 

to  the  rules  set  forth  above. 

4.  The  rules  for  replacement  are  as  follows: 

i 

a.  When  literal-1  is  a  figurative-constant,  eacli  character  I 

i 

in  the  data  referenced  bv  identifier-1  that  is  equal  to  the  figurative-  j 
constant  is  replaced  by  the  single  character  referenced  by  literal-2 
or  ident i f i er-5 . 

b.  V.Ticn  literal-2  is  a  figurative-constant,  each  character 
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1. 


in  t  in.-  ;!;tf  •>  rc‘\'ri'ncci]  hv  ivlent  j  t  i  or-  1  t  •  a  i  is  cm..:!  to  t  :.<•  i.. arret 


re  f'erencee.  In-  I  in  • ;  1 1  -  I  or  itieut  i  hi  e 


I  "  P  i  li  V  i  hi  ih.ir.u'l  .  ’ 


c  !  i'  t'l’IH’i'i. 


i  ui  rat  i  •.  e  -  cons  t  a  n  I  , 
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are  executed  : 

1.  GO  TO  permanently  releases  control  to  the  first  statement 
in  the  procedure  named. 

2.  PlikT ORM  causes  statements  in  a  remote  procedure  to  be 
executed  and  control  returns  to  the  statement  following  the  PERFORM. 

5.  STOP  allows  the  program  to  terminate  in  an  orderly  manner. 

4.  IF  causes  control  to  branch  into  either  a  "true"  or  "false" 
Path,  depending  on  the  outcome  of  a  condition  test  written  in  the 
program.  The  paths  rejoin  at  the  beginning  of  the  next  sentence 
unless  a  GO  TO  branch  is  used  in  one  or  both  paths. 

EXIT  merely  declares  that  the  paragraph  in  which  it  is 
contained  is  a  transfer  point  that  may  be  referenced  by  other  sequence 
control  statements. 

n.  ID.  o.l  iNormal  Sequence  Control:  J  lie  starting  location  for 
the  program  is  at  the  first  statement  of  the  PROCEDURE  DIVISION. 
Control  then  proceeds  to  subsequent  successive  statements  until  the 
end  of  tiic  paragraph  or  section  is  reached.  Unless  the  paragraph  or 
section  is  executed  under  control  of  a  PERFORM  statement,  control 
then  passes  to  the  first  statement  in  the  next  paragraph  or  section. 

Execution  of  a  sequence  control  statement,  of  course,  alters  tne 
normal  sequence  of  control. 

b.19.8.2  GO  TO  Statement:  The  format  of  this  statement  is: 


Format  1: 


GO  TO  |procedure-name*  l] 
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passes  to  the  next  statement  following  the  C.0  TO  statement.  A 
maximum  of  16  procedure-names  may  be  used  in  one  GO  TO  statement. 

Example: 

GO  TO  FEDERAL-TAX,  STATE-TAX,  LOCAL- TAX  DEPENDING  ON  GROSS- 
SALARY -CODE. 


6.19.8.3  PERFORM  Statement:  The  formats  of  this  statement  are: 


Format  1 : 

PERF  ORM  procedure-name-1 
Format  2  : 

PErf ORM  procedure-name-1 

(identifier- lj  TIMES 
{integer- 1  j 


[THRU  procedure-name-2] 


[ THRU  procedure-name-2] 


Format  5: 

P ERf qrm  procedure-name-1  [THRU  procedure-name-2] 
UNTIL  condition-1 


Format  4: 


PERFORM  procedure-name- 1  [ THRU  procedure-name- 2]  VARYING 


index-name- 1]  FRCM  1 

["index-name-  2 

identif ier-lf  { 

identifier-2 

J  j 

'literal-2 

BY  (identifier-3 
jliteral-3 


UNTIL  condition-1 


after 

(index -name -4 
jidentif ier-4 

FROM 

findex-name-5' 
iidcntif ier-5 
Jliteral-5 

BY 
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ident  i  f  1  er- 01  UNT 1 1.  condition- 2 

d iter a 1-0  i 


/j-ti;r  1 

|index-name-  7  | 

1  1 

fi  ndex  -  name  -  8] 

HY 

< 

lident  i  f  i  e r -  7  i 

f  n;  om  \ 

identifier  -  S| 

w  j 

1  J 

1  i 

'  1  1 1  e  r  a  1  -  8  j 

Jident  i  f  i  er- bj  UN'T  I  L  condition  -3 

jl  i  tera  1  -  ‘J  j  J 

The  PI RfORM  statement  causes  a  departure  and  return  from  norma J 
procedures  execution  to  another  part  ol  the  program  to  execute  or.e  or 
more  procedures .  fhcse  pre.<  edurcs  arc  executed  a  predetermined  num¬ 
ber  of  times  or  tint  i  J  a  specified  condition  is  satisfied,  after  wni  c.: 
normal  procedures  execution  resumes.  In  its  simplest  format  the 
I’ll'Ti’RM  provides  a  branch,  execution  of  the  procedure,  and  a  return ; 
in  the  more  complex  formats  a  branch  is  made ,  but  the  minder  of 
executions  is  contin'ent  upon  a  condition  controlled  and  tested  by 
the  statement  .  Thus  ,  the  I’l.Rl'PR'.i  statement  permit  s  repetitive 
execution  or  loop  in"  us  in"  one  statement  ;  that  is,  it  i  n  i  t  i.i  1  i  .-.os 
and  maintains  loop  criterion  (variable),  tests  the  criterion  ana  pet  - 
forms  onerat i ons  . 

The  return  point  for  the  PiRf-'PRM  statement  is  determined  by 
whether  the  procedure  to  which  it  branches  is  a  paragraph  or  section. 
Mien  the  instructions  compiled  from  a  1'hRR'itM  Statement  are  executed, 
they  transfer  control  to  the  first  statement  of  the  specified  prt  ce  - 
dure.  Instructions  that  provide  return  to  the  statement  fol low i ns 
t’F R T f*RM  are  set  up  as  follows: 

1.  If  pro*.  eJure-nar.e-  J  is  a  paray.rapli-nane  and  a  procedure  -name- 
2  is  not  specified,  control  is  rctiiriu.nl  after  the  last  statement  <>  • 
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the  procedure-name- 1  paragraph. 

2.  If  procedure-name-1  is  a  section  and  a  procedure-name- 2  is 
not  specified,  control  is  returned  after  the  last  statement  of  the 
last  paragraph  of  the  procedure-name- 1  section. 

3.  If  procedure-name- 2  is  specified  and  is  a  paragraph-name, 
control  is  returned  after  the  last  statement  of  the  procedure-name- 2 
paragraph. 

4.  If  procedure-name- 2  is  specified  and  is  a  section-name,  con¬ 
trol  is  returned  after  the  last  statement  of  the  last  paragraph  of 
the  procedure-name- 2  section. 

Note  :  The  "last  statement"  referenced  in  each  of  the  above 

cases  must  not  be  an  unconditional  CO  TO  statement. 

When  procedure-name- 2  is  specified,  the  only  required  relation¬ 
ship  between  procedure-name- 1  and  procedure-name- 2  is  that  of  logical 
sequence,  that  is,  execution  sequence  must  proceed  from  procedure- 
name-1  to  the  last  statement  of  the  procedure-name- 2  paragraph  or 
section.  GOTO  statements  and  other  PERFORM  statements  are  permitted 
between  procedure-name- 1  and  the  last  statement  of  procedure-name- 2 
provided  that  the  sequence  ultimately  returns  to  the  final  statement 
of  procedure-name- 2 . 

If  the  logic  of  a  procedure  requires  a  conditional  branch  prior 
to  tne  final  sentence,  the  EXIT  statement  may  be  used  to  satisfy  the 
foregoing  requirements.  In  this  case,  procedure-name-2  must  be  the 
name  of  a  paragraph  consisting  solely  of  the  EXIT  statement;  all  paths 
must  eventually  lead  to  this  point.  (See  the  "EXIT  Statement"  discus- 


s  i on  ,  Section  0.19.8.9) 


It  is  not  necessary  for  procedures  to  he  referenced  by  a  PHU'rKM 
statement  hclore  they  can  he  executed.  Procedures  can  also  he  exccut 
ed  in  normal  sequence  from  the  preceding  statement,  in  which  case 
return  of  control  does  not  apply  after  execution  of  the  last  sentence 
in  a  particular  procedure. 

h.  10. 8.-1  "Nested"  PI.RPORM  .Statement:  If  a  sequence  of  state¬ 
ments  referred  to  by  a  PI-.R1-0RM  statement  includes  another  Pl.RFORM 
statement,  the  sequence  of  procedures  associated  with  the  included 
if  hi- mi’V  must  it  icl  f  he  either  totally  included  in,  or  totally  ex¬ 
cluded  from  t  iie  >  o  >  i  ca  I  sequence  referred  to  by  the  first  IM.RFokM. 
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exit  point  of  the  other  active  PKRPPRM  statement. 

0.19,8,5 _  f I '  ■  | s  (U;t  ion;  !n  format  2 ,  the  procedure  is  executed 


r '.‘net  i t  i  v e  i  v 

a  cer  t  a  i  n  numhe  r 

of  times. 

'!  he 

mu:1  he  r 

of  executions  ms 

he  specified 

exp  1  i  c  1 1 1 y  as  an 

integer  or 

i  mp  1 
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as  tiie  value  > 

an  e  Itiiicrdarv  data  item. 


If  an  identil icr  is  used  it  may  be  of  any  numeric  usare,  and  it 
may  he  suhse  ripteu .  When  t  ii  i  s  option  is  included,  a  counter  is  set 
up  with  a  value  equal  to  ti.e  value  of  the  identifier-!  item  or  it. toy 
1.  before  each  execution  of  the  specified  procedure,  the  counter  is 
tested  to  see  if  it  is  negative  or  zero.  If  it  is  neither  neijat  i  ve 
nor  zero,  t  he  procedure  is  executed  and  tr.e  value  of  the  counter  do- 
creased  hv  one ;  when  the  value  of  the  counter  is  negative  or  zero,  i 
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procedure  is  executed  and  the  value  of  the  counter  decreased  by  one; 
when  the  value  of  the  counter  is  negative  or  zero,  the  procedure  has 
been  executed  the  specific  number  of  times  and  control  transfers 
to  the  statement  following  the  PERFORM  statement. 

6.19.9.6  UNTIL  Option:  In  Format  3,  the  number  of  times  the 
procedure  is  executed  is  dependent  on  the  truth  or  falsity  of  a  con¬ 
dition  (condition-1)  rather  than  a  stated  value.  Condition-1  can  be 
any  simple  or  compound  conditional  expression  that  is  evaluated  before 
the  specified  procedure  is  executed.  If  it  is  found  to  be  false,  the 
procedure  is  executed  and  the  expression  is  evaluated  again  (values 

of  the  items  may  be  altered  by  execution  of  the  procedure)  and  tested 
for  truth  or  falsity;  this  process  is  repeated  until  the  conditional 
expression  is  found  to  be  true,  at  which  point  control  transfers  to 
the  statement  following  the  PERFORM  statement.  If  the  conditional 
expression  is  found  to  be  true  when  the  PERFORM  statement  is  first 
encountered,  the  specified  procedure  is  not  executed.  (Refer  to 
"Conditional  Statements",  Section  6.19.4). 

6.19.8.7  VARYING  Cption:  In  Format  4  the  VARYING  option  makes 
it  possible  to  PERFORM  a  procedure  repetitively,  increasing  or  de¬ 
creasing  the  value  of  one  to  three  data  items  once  for  each  execution 
until  one  to  three  conditional  expressions  are  satisfied. 

Tfie  flowcharts  in  Figure  G-3  illustrate  the  logic  of  the  PERFORM 
statement  when  one,  two,  or  three  identifiers  are  varied.  Let 

1.  Each  dj  represent  an  identifier  or  index-name. 

2.  Lack.  1^  represent  a  literal. 
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Kach  c1  represent  a  condition. 

I.ach  represent  a  procedure-name. 


-■> . 

4. 

F.xamnle:  To  help  clarify  use  of  the  VARY  INC  subscr  i  nt  -  name 

option,  assume  that  a  rate  table  is  employed  in  a  billing  procedure 
and  that  the  table  requires  periodic  updating.  This  hypothetical 
rate  table  is  three-dimensional:  divided  into  five  regions,  each  of 
which  includes  ten  states,  each  of  which  contains  rates  for  twelve 
cities.  It  is  assumed  further  that  an  appropriate  rntc-updat i ng  pro¬ 
cedure  is  available  elsewhere  in  the  program.  Such  a  procedure  n i e h t 
a pj  ea r  as 

KATh-IH'P.VI  I  \'U  .  MUlTIPi.Y  RATI:  f  Rid'.  I  ON  ,  SI  AT!.  ,  CITY'S  fY  AiUdST- 

l;  ACTOR  1 1 IV  7  \C  RAib  fRhGIO.N,  STATU,  (11  Y  )  . 

It  is  desired  to  execute  this  KATL-Ul’D  ATI  NC  procedure  once  for 
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rate  for  a 
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prod uc i ng 

an  adjusted  rate  for 

that 

city. 

Ac co rd i no  I y 

the  programmer 

employs  a 

J’LRFORM  statement  vary i tie 

tli  esc 

2 1  on s  : 

H-.RI  CRM  RATI.-Ul’UATJNC  VARY  INC  RLCICN  FROM  1  HY  1  UY1  1  i,  RLl.ION 
IS  CKI.AT1  h  11 :  AN  5  A1TI.R  ST  AT  I;  FROM  1  BY  1  UNTIL  ST  ATI.  lv  ill  A  I.S 
11  AFTFR  (TTY  DUN  1  BY  1  UNTIL  CITY  IS  GRF.A'I  LR  TUAN  12. 

'vhen  the  !M  kFORM  is  executed  at  object  time,  the  RAT  I.-UI’pATI.VC 
procedure  is  executed  for  tiie  first  city  of  the  first  state  in  tnc 
first  region,  t  hen  for  the  next  city,  etc.  The  F'FKFCR.M  is  complete 
when  the  procedure  is  executed  for  the  twelfth  citv  of  t 'no  tenth 
state  of  the  fifth  region,  i>v  winch  time  the  procedure  i'.as  I  .  m 
ex  ecu  tea  (<•.  p  times. 
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The  condition  may  be  a  simple  condition  as  presented  by  the 
format  below  or  a  compound  condition  as  described  under  "Conditional 
Statements",  Section  0.19.4.  The  format  of  a  simple  condition  is: 


identifier-  l] 
literal-1  j 
[formula- 1  ) 


GREATER  THAN 


IS  [NOT]  1  LESS  THAN 


EQUAL  TO 

t  — 


identifier-31 

IS 

[not]  1 

f  POSITIVE 

!  negative} 

formula-3  ' 

l — J  ] 

[tee? - J 

[ identifier-4] 

IS 

[not]  j 

|  NUMERIC  ] 

|  ALPHABETIC [ 

identifier- 2 
literal-2 
f  ormula- 2 


b. 19. 8. 11  Evaluation  of  the  Condition:  The  condition  is  evalua¬ 
ted  before  any  action  is  taken.  If  the  condition  is  true,  eitJier 
statement-1  or  NEXT  SENTENCE  is  executed.  When  NEXT  SENTENCE  is  spe¬ 
cified,  control  is  transfered  to  the  next  sentence,  and  the  ELSE  part 
of  the  statement  is  ignored.  If  the  condition  is  false,  either  state¬ 
ment-2  or  NEXT  SENTENCE;  is  executed.  Control  is  transferred  to  the 
succeeding  sentence  when  NEXT  SENTENCE  is  specified.  Statement -1  or 
statement- 2  may  be  a  series  of  statements  an  1  each  may  be  terminated 
by  a  period  of  ELSE. 

6.19,8,12  Nested  Conditional  Statements:  Statements-1  and  -2 
can  he  imperative-statements  or  imperative-statements  followed  by  a 
conditional  statement.  When  either  statement-1  or  statement-2  or  both 
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contain  a  conditional  statement,  the  conditional  statement  becomes 
nested.  Nested  conditional  statements  nay  also  contain  conditional 
statements.  Nested  conditional  statements  are  analogous  to  the  use 
of  parentheses  lor  combinin';  subordinate  nr  i  t  hnet  ic-express  i  ons  so 
that  the  expressions  become  part  of  a  larger  arithmetic  unit. 

b.ld.S.15  1  valuation  of  Nested  1 P  Statements:  Conditional 

statements  contained  within  conditional  statements  (  I  !;s  within  I  fs'> 
must  be  considered  as  paired  If  and  H  SI-  combinations,  proceeding 
from  left  to  ripht.  Therefore,  any  hi  NM  encountered  applies  to  the 
immediately  preceding  IF  that  is  not  already  paired  with  an  hi  Si.. 

In  essence,  tne  number  of  occurrences  of  I  LSI!  in  any  conditional 
statement  must  he  equal  to  the  number  of  occurrences  of  IF,  repai  d  les 
of  the  complexity  caned  by  nest  in;;,  with  the  following  exception: 
when  h  LSI:  or  NhX’l  SLNThNCh  directly  precedes  the  terminal  periou  of 
a  sentence ,  the  entire  phrase  nay  he  omitted  and  the  period  specified 
at  the  end  of  the  previous  phrase.  TL  i  s  rule  is  extended  to  result  it; 
sentences,  etc.  For  each  I  LSI!,  the  associated  statement  is  executed 
only  when  t.ue  conditional  expression  in  the  correspond  in;;  IF  is  found 
to  he  false.  If  there  arc  more  IPs  than  i.I.ShS  in  a  statement,  it  is 
assumed  that  I  1..PF  NT  XT  SI.NTilNCT  phrases  at  the  end  of  t  he  sentence 
are  omitted. 

1  x ample  :  The  sentence  in  the  followin'’  paragraph  contains  two 
independent  nests  of  conditional  statements.  The  first  nest  ends 
after  the  statement  PFRFCRM  procedure  *  name  - 1 ;  the  second  nest  consist 
of  the  remainder  of  the  sentence  ami  has  an  implied  i  ltd  NI  X!  SIMi.Nl 


before  the  period.  Each  upper-case  letter  of  the  alphabet  corres¬ 
ponds  to  a  conditional  expression. 

IF  A  IF  B  PERFORM  procedure-name- 1  ELSE  NEXT  SENTENCE  ELSE 
IF  C  NEXT  SENTENCE  ELSE  PERF CRM 

procedure-name- 2  IF  D  PERFORM  procedure-name-3  IF  E  PERFORM 
procedure-name-4  IF  F  PERFORM  procedure-name- 5  ELSE  PERFORM 
procedure-name- 6  ELSE  STOP  RUN. 

6.19.9  Table-Handling  Statements:  The  structure  of  a  table  is  de¬ 
fined  by  the  use  of  an  OCCURS  clause  (refer  to  "OCCURS  clause"  Section 
6.18.6.16).  Entries  in  a  table  may  be  referenced  by  a  subscript  or 
index,  which  identifies  a  particular  element  within  a  table. 

Indexing  has  the  advantage  in  efficiency  that  no  address  computa¬ 
tion  is  involved;  an  index  contains  a  direct  pointer  to  an  individual 
element  in  a  table  rather  than  a  mere  occurrence  number.  The  SET 
statement  facilitates  the  correct  setting  of  indexes. 

The  formats  of  the  SET  statement  are: 
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The  SET  statement  establishes  reference  points  for  table-handl¬ 
ing  operations  by  setting  index-names  associated  with  table  elements. 

All  identifiers  must  lie  cither  index  data  items  or  numeric  ele¬ 
mentary  items  described  without  any  positions  to  the  rig, lit  of  the 
assumed  decimal  point,  except  that  identifier-3  must  not  be  an  index 
data  item.  When  a  literal  is  used,  it  must  he  a  positive  integer. 
Index-names  are  considered  related  to  a  given  table  and  are  defined 
by  specification  in  the  INDEXED  BY  clause. 

In  Format  1  the  following  action  occurs: 

1.  Index-name- 1  is  set  to  a  value  corresponding  to  the  same 
occurrence  number  to  which  either  index-name- 2 ,  identifier-2  or  lit¬ 
eral-1  corresponds.  If  identifier-2  is  an  index  data  item  or  it  inde 
name-2  is  related  to  the  same  table  as  index-name- 1  .  no  conversion 
takes  place. 

2.  If  identifier-1  is  an  index  data  item,  it  may  be  set  equal 
to  either  the  contents  of  index-name- 2  or  identificr-2  where  the 
latter  is  also  an  index  data  item;  literal-1  cannot  be  used. 

3.  If  identifier- 1  is  not  an  index  data  item,  it  may  be  set 
only  to  an  occurrence  number  corresponding  to  the  value  of  index-name 
-2;  neither  identifier- 2  iK'r  literal-1  can  be  uscu. 

In  Format  2  the  value  of  index-name- 3  is  incremented  (HI'  BY)  or 
decremented  fDOl’.N  bY)  by  a  value  corresponding  to  the  number  of 
occurrences  represented  bv  the  value  of  literal-2  or  identifier-3. 


7.  DISCUSSION  U  CONCLUSIONS 


7.1  Design  Conclusions 

An  examination  of  the  variables  in  computer  networks  indicates 
that  these  variables  can  be  classified  either  as  host-controlled  re¬ 
source  variables  or  as  network  variables.  Obviously,  the  former  are 
determined  by  the  nature  of  the  hosts  and  the  latter  by  the  nature 
of  the  network. 

Two  distinctive  aspects  of  distributed  microcomputer  networks 
are  the  facts  that  the  hosts,  being  microprocessors,  can  control 
only  one  operation  at  a  time  and  that  packet-switching  has  been 
chosen  for  the  network.  Further  considerations  for  the  monitor 
system  is  the  desire  to  require  a  minimal  overhead  for  the  monitor 
system  and  to  acquire  it  for  a  cost  comparable  to  that  of  the  (inex¬ 
pensive)  microcomputers. 

The  review  of  the  literature  indicates  that  the  quantities  to 
be  measured  for  microcomputer  networks  can,  in  fact,  be  a  subset  of 
the  variables  measured  for  larger  networks  and  computers.  A  partic¬ 
ular  set  of  variables,  which  are  felt  to  be  sufficient,  is  listed 
in  Section  3. 

Kith  respect  to  measuring  the  desired  variables,  the  host-con¬ 
trolled  resource  variables  can  be  measured  in  the  same  manner  as  de¬ 
scribed  in  the  literature  for  large  computers  with  some  simplification 
due  to  the  limited  flexibility  of  microcomputer  hosts.  The  problems 
here  are  interfacing  with  specific  equipment  and  achieving  an  inte- 
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grated  monitor  system  with  convenient  user  access. 

With  respect  to  measuring  network  variables,  there  is  limited 
discussion  in  the  literature  of  monitor  systems  for  packet -switching 
networks.  Monitoring  for  the  ARPANTT  is,  of  course,  discussed  in 
considerable  detail.  This  network,  however,  differs  from  those 
being  considered  in  significant  respects  such  as  scale  and  age,  to 
mention  only  two.  No  monitoring  system  for  recently  designed  packet 
switching  mini  or  microcomputer  networks  was  found  discussed  in  the 
1 i terature . 

With  this  background,  the  need  was  felt  to  adapt  existing  mon¬ 
itor  strategies  to  the  characteristics  of  distributed  microcomputer 
networks  and  design  a  complete  monitor  system  structure  for  such 
networks.  The  design  is  discussed  in  Section  5. 

1'ne  low  overhead  for  the  monitor  system  is  felt  to  be  especiall 
attractive.  The  host-controlled  resources  are  monitored  without  the 
use  of  software  and  hence,  require  no  overhead.  The  use  of  the  Two- 
Port  RAM's  at  each  node  provides  data  on  the  network  operation,  also 
without  overhead.  Hie  pickup  packets,  which  probe  packet  delay  and 
convey  information  between  the  Monitor  Stations  and  the  Monitor  (Con¬ 
trol,  are  the  only  aspects  of  the  monitor  system  which  require  over¬ 
head.  Such  overhead  is  determined  by  the  ratio  or  the  number  of 
pickup  packets  to  the  total  number  ol  jackets  in  the  network  over 
some  reference  time  interval. 

by  processing  data  at  each  node  anu  storing,  for  example,  his- 
tograms  or  random  variables,  the  need  for  frequent  communication 


between  the  Monitor  Stations  and  Monitor  Control  is  minimized.  Thus, 
the  limiting  factor  in  pickup  packet  overhead  would  seem  to  be  the 
frequency  with  which  packet  delays  need  to  be  sampled.  This  fre¬ 
quency  will,  of  course,  depend  on  the  use  of  the  monitor  system. 

Witli  respect  to  this  point,  it  is  likel;  that  packet  delay  will 
be  of  significant  importance  in  studies  for  improving  the  network 
design.  On  the  other  hand,  in  an  operating  network,  where  efficiency 
is  important,  frequent  measurement  of  packet  delay  may  not  be  neces¬ 
sary  and  hence  the  number  of  pickup  packets  can  be  kept  small. 

An  implementation  of  the  general  monitor  system  design  is  given 
in  Section  4.  The  implementation  is  chosen  to  be  compatible  with 
the  AIRMICS/GEORGIA  TECH  Experimental  Network  and  thus  it  has  the 
potential  of  being  used  with  that  network.  This  point  is  discussed 
in  Section  4.3. 

An  example  of  a  typical  use  of  the  distributed  microcomputer 
network  is  formulated  in  Section  4.2.  For  this  example,  the  monitor 
system  is  studied  on  a  step-by-step  basis.  As  indicated  by  detailed 
activity  tables  in  Appendix  A,  the  proposed  monitor  system  can  ap¬ 
parently  function  properly  for  this  test  case. 

7.2  Network  lixper imcnta  1  Conclusions 

The  results  of  the  Inventory  Control  Program  Test  witn  Traffick¬ 
ing  series  of  tests  are  as  follows: 

1.  It  was  possible  to  overload  the  network  and  cause  it  to  fail 
by  trafficking  nodes  that  were  also  receiving  large  bursts  of  data 
from  the  host  computers. 


205 


2.  Tli e  communication  network  was  more  likely  to  reorder  mes¬ 


sages  during  a  traffic  situation  than  with  no  traffic. 

3.  These  tests  helped  point  out  some  of  the  characterist ics 

of  the  network  that  are  described  in  detail  in  the  section  of  network 
characteristics . 

4.  Die  test  helped  point  out  characteristics  of  the  inventory 
control  problem  that  are  detailed  in  the  section  on  inventory  control 
program  characteristics. 
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9.  APPENDIX  A 

TABLES  GIVING  COMPUTER  NETWORK  AND  MONITOR  SYSTEM 
ACTIVITY  FOR  INVENTORY  CONTROL  EXAMPLE 

TABLE  A1 .  General  Monitor  System  Functions: 

Initial  Set  Up  for  Complete  Problem 

Set  up  Masked-Word  Range  Comparators  to  record  the  activity  of 
the  Host  CPU  at  Node  K  (Module  K1 )  and  the  Host  CPU  at  the  MC 
Node  (Module  MCI).  (Other  modules  are  required  for  Jobs  3  and  4.) 

Set  up  Interval  Counters  to  record  the  activity  of  the  Terminal, 
the  Line  Printer  and  the  Disk  at  Node  K  (Modules  K2,  K3,  and  K4) 
and  the  Disk  at  the  MC  Node  (Module  MC2).  (Other  modules  are 
required  for  Jobs  3  and  4.) 

Initialize  the  modules  for  monitoring  the  Node  CPU  activity  of 
each  node.  Modules  K5  and  MC3  are  used  with  Jobs  1  and  2.  Other 
modules  are  required  for  activities  associated  with  Jobs  3  and  4 
and  with  possible  alternate  routing  used  in  Job  1. 

Initialize  the  count  in  all  Two-Port  RAM  Counter  locations  at  each 
node. 

Set  the  Job  ID  numbers  to  zero  in  the  Two-Port  RAM  at  each  node. 

Identify  Two-Port  RAM  memory  locations  for  data  to  be  transmitted 
to  the  MC  Node  (for  this  example,  assume  all  memory  locations  fall 
in  this  category). 

Identify  Two-Port  RAM  memory  locations  for  variables  from  which 
histograms  will  be  generated. 

Activate  total  problem  time  counter. 


TABLE  A2.  General  Monitor  Sybil-  :  Fund  w  ns: 
Periodic  Monitor  Functions 


°  Transmit  pickup  packets  from  MC  Node. 

0  Sample  all  Two-Port  RAM  counter  locations  and  store  the  values  read 

along  with  the  time  in  appropriate  Two-Port  RAM  memory  locations  for 
periodic  transfer  to  the  MC  Node  and/or  input  certain  values  to 
Histogram  Generators. 

Pi scuss ion :  The  pickup  packets  cause  the  following  activities  to  take 
place. 

At  each  node  the  ID  of  the  pickup  packet  is  read  by  the  Node  CPU, 
an  interrupt  is  generated,  the  Node  CPU  causes  the  Real  Time  Clock  to  be 
read,  the  resulting  number  is  recorded  in  the  data  field  of  the  pickup 
packet. 

Data  from  specific  Two-Port  RAM  memory  locations  and  from  rodulos 
is  read  into  the  data  field  of  the  pickup  packet  to  be  transmitted  to 
the  MC  Node. 

As  each  pickup  packet  is  transmitted  from  a  node,  an  interrupt  is 
generated  and  a  time  value  is  read  into  a  storage  location  identified  wit 
the  departing  pickup  packet  number. 


i  4 


TABLE  A3.  General  Monitor  System  Functions: 

Monitor  Functions  at  Problem  Completion 
°  Stop  total  problem  line  counter. 

°  Transmit  pickup  packets  to  all  nodes. 

°  Read  data  fields  of  returning  pickup  packets  at  MC  Node. 

°  Compute  all  desired  functions  of  accumualted  data. 

°  Output  all  desired  data  from  MC  Node  Host. 

Discussion :  As  an  example  of  a  desired  function  of  the  accumulated  data 
at  the  MC  Node,  the  total  number  of  packets  transmitted  from  K  to  MC  in  a 
short  time  interval  can  be  computed  and  divided  into  the  Node  CPU  and 
communication  channel  costs  for  this  interval  to  obtain  the  cost  per 
packet  over  this  path  during  the  time  interval.  The  resulting  number 
can  be  multiplied  by  the  number  of  Job  1  packets  transmitted  from  K  to 
MC  to  give  the  network  cost  to  be  used  with  Job  1  in  the  same  time  interval. 
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t i v i ty  Module  K5  ceases  to  cou>'! 


TABLE  A4.  (Cont’d)  Activities  in  Execution  of  Job  1  with  Corresponding  Monitor  System  Readin 


TA8LE  A4.  ( Con t ' d )  Activities  in  Execution  of  Job  1  with  Corresponding  Monitor  System  Readin 
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TABLE  A5.  Activities  in  Execution  of  Job  2  with  Corresponding  Monitor  System  Readings 
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11.  APPENDIX  C 


11.1  Introduction 

This  appendix  attempts  to  explain  as  clearly  as  possihle  the 
communications  control  software.  It  assumes  little  knowledge  of 
M6800  microprocessor  code,  but  does  assume  a  knowledge  of  the 
general  configuration  of  the  network.  It  is  presented  in  five 
parts:  1)  Explanation  of  the  different  types  of  messages,  2)  short 

description  of  the  method  of  error  detecting  being  used,  5)  the 
general  message  handling  process,  4)  a  description  of  important 
buffers  that  the  program  uses,  and  5)  a  flowchart  that  shows  much 
of  the  program  detail. 

11.2  Messages 

Essentially  there  are  three  types  of  messages:  1)  Data,  2) 
Source  Acknowledgement,  and  5)  Local  Acknowledgement.  The  first  is 
of  prime  importance  to  the  system,  and  the  second  two  nsure  the 
error  free  transmission  of  the  first. 

11.2.1  Data  Message:  Any  communication  between  two  elements  in  the 
network  is  done  with  a  data  message.  After  a  data  message  is  sent 
out  from  its  origin,  it  remains  stored  in  the  origin's  RAM  until  it 
has  been  received  at  its  destination.  This  is  when  a  source 
acknowledgement  should  be  received  by  the  origin  from  the  destination 
to  indicate  safe  arrival  of  the  data  message. 

11.2.2  Source  Acknowledgement:  The  source  acknowledgement,  as  just 


mentioned,  is  to  indicate  to  the  original  sender  that  a  message 
has  reached  its  destination  error  free.  After  receiving  this 
acknowledgement,  the  message  stored  in  the  source's  buffers  can  be 
c leared . 

11.2.3  Local  Acknowledgement:  The  local  acknowledgement  is  one  of 
the  steps  along  the  way  to  an  eventual  source  acknowledgement.  If 
an  element  in  a  network  is  part  of  the  path  of  a  message  from  the 
source  to  the  destination,  it  must  receive  the  message,  report  to 
who  sent  it  that  the  transmission  was  error  free,  and  send  this 
message  back  out  alorg  its  way.  This  is  done  through  the  local 
acknowledgement.  If  this  local  acknowledgement  is  not  received  by 
the  sender  after  a  certain  period  of  time,  the  data  message  is 
retransmitted.  If  the  local  acknowledgement  is  received  properly, 
the  message  can  be  cleared  from  the  buffers  of  the  intermediate 
Handler.  See  Figure  C. 1. 

11.3  Message  Handling 

The  way  in  which  a  message  is  processed  will  be  described  in  an 
attempt  to  become  more  detailed  in  the  discussion  of  the  total  system. 
The  reader  is  referred  to  Flowchart  C.l. 

Essentially,  the  steps  are  as  follows: 

1.  A  message  is  put  in  through  an  interrupt  routine  that  will 
input  one  word  at  a  time.  This  is  done  to  take  advantage  of  the 
relative  speed  that  the  central  processing  unit  possesses  compared 
to  the  speed  of  serial  data  transmission.  This  interrupt  1 10  scheme 
will  be  discussed  in  more  detail  later. 


it' 


I-ICIIUI.  C.l 

An  example  of  data  message  transmission  with  acknowledpemcats : 


O) 


Local  Ack.  Link  Link 


Message 


Message  is  transmitted  to  first  link  of  its  j-ath  .  Local 
is  sent  by  (2)  to  (1),  safe  arrival.  (1)  still  waits  for 
source  ack. 


(2) 


Local  Ack 

< - 


-> 


Message 


"essa-'C  trails.’;  i  I  ted  to  (5) 

(2J  Clears  message  fro;:  its  puffers  after  local  ack.  is 
(1)  Still  waitin''  for  source  ack. 


Local  Ack, 


Source  Ack. 


(7>j  Transmits  source  ack.  for  message 

(21  Sends  (31  a  local  ack.  for  the  source  ack,  (3)  clears 
source  a  cl.. 

( 1 )  still  wa i t  s 

l.ocal  Ack. 


Source  Ack.  from  (31 


Ac  k . 
a 


received 


tac 


2.  The  message  is  classed  as  either  a  data  message,  local  ac¬ 
knowledgement,  or  as  a  source  acknowledgement 

If  the  message  is  a  data  message,  it  must  be  distinguished 
between  a  message  that  has  reached  its  destination  and  one  that 
needs  to  be  put  back  out  into  the  network.  If  the  data  message 
is  still  in  the  network,  a  local  acknowledgement  must  be  sent  to 
the  last  node  that  held  the  message  so  that  it  can  clear  its  buffer, 
and  then  the  message  must  be  put  back  into  the  network  to  continue 
towards  its  destination. 

If  the  message  needs  to  go  back  out  into  the  system,  it  is  sent 
to  an  ACIA  for  output.  If  the  ACIA  is  busy,  this  being  the  proper 
ACIA,  the  message  is  sent  to  an  ACIA  that  is  linked  to  the  proper 
one  for  output.  If  output  is  not  possible  after  all  the  links  arc 
tried,  the  message  is  to  be  placed  in  a  queue  for  output  at  a  more 
convenient  time.  (See  Figure  C.2) 

If  the  data  message  is  at  its  destination,  a  local  acknowledge¬ 
ment  must  be  sent  to  the  last  node  that  held  the  message  so  that  it 
can  be  cleared  from  the  buffer,  and  a  source  acknowledgement  must  be 
sent  to  the  message's  source  to  acknowledge  the  completion  of  the 
transfer  of  information. 

If  the  message  is  a  local  acknowledgement,  the  receiving  node 
knows  that  the  message  was  received  error-free  and  that  its  buffer 
can  be  cleared. 

If  the  message  is  a  source  acknowledgement,  the  origination  node 


knows  that  the  message  was  received  error-free  and  that  its  buffer 


can  also  be  cleared. 


3.  Data  Transmission  Complete. 

11.4  Input/ CXitput 

The  input  and  output  routines  are  called  in  the  interrupt  por¬ 
tion  of  the  program.  A  message  is  outputted  one  word  at  a  time. 

After  each  word  is  sent  to  an  ACIA  for  output  the  program  continues 
to  perform  its  normal  process  of  processing  message  until  output  of 
word  is  completed,  at  that  time  another  word  is  sent  to  the  ACIA  and 
program  excecutions  resumes  again  like  normal. 

In  the  input  case,  the  inputting  ACIA  will  interrupt  norma] 
program  flow  to  input  to  a  buffer  one  word  after  completely  receiving 
the  word.  After  each  input  normal  program  execution  can  continue. 

Reintrant  RAM  is  used  primarily  to  achieve  input  and  output  to 
the  proper  buffers  in  this  interrupt  scheme.  (See  next  section.) 

Note:  The  input/output  flowchart  will  help  this  description 

greatly. 

11.5  Headers  for  the  Three  Message  Types 

At  the  beginning  of  cacli  message  is  a  header  telling  the  receiver 
how  to  treat  the  message. 

11.5.1  Data  Message: 

00  Message  Class 

01  Number  of  Buffers 

02  Number  of  Words  in  Last  Buffer 

05  Origin 

04  Destination 

05  Message  Number 


i  n 


▼ 


00  Sequence  Number 
07  Local  Sequence  Number 


11.5.2  Source  Acknowledgement: 

00  Class 

01  Destination  FIGURL  C.3 

02  Message  Number 

05  Local  Sequence  Number 

11.5.5  Local  Acknowledgement: 

00  Class 

Note:  The  Local  Acknowledgement  message  only  contains 

this  header  and  a  local  sequence  number. 

11.6  Definitions 

Message  Class  -  Each  message  can  be  classed  according  to  the 
type  of  information  in  its  bits.  The  three  types  of 
message  classes  are:  1)  source  acknowledgements,  2) 
local  acknowledgements,  and  3)  data  messages. 

Number  of  Buffers  -  This  is  the  number  of  buffers  the  message 
is  sent  in.  Maximum  buffer  length  is  255  words  including 
the  Cyclic  Redundancy  Code  (CRC)  and  the  header. 

Number  of  Words  in  tiie  Last  Buffer  -  This  provides  a  means  of 
quickly  finding  the  CRC  which  is  located  in  the  last  two 
words  of  the  message.  (See  Error  Detecting,  Section  11.7). 

Origin  -  The  origin  is  where  the  message  orginated.  It  tells 
which  ACIA  should  get  a  source  acknowledgement.  Each 

2-1 1 


element  of  the  network  is  assigned  a  number. 


Destination  -  This  is  where  the  message  is  going. 

Message  Number  -  This  is  the  name  of  the  first  buffer  where  a 

message  is  stored  in  the  source.  Used  for  source  acknowl¬ 
edgement  purposes. 

Sequence  Number  -  The  sequence  number  is  the  packet  number  of 
the  message.  Presently,  a  message  may  be  three  packets 
long.  Sequence  number  is  used  because  of  the  necessity 
to  receive  packets  in  order. 

Local  Sequence  Number  -  This  is  the  name  of  the  first  buffer 

where  a  source  acknowledgement  or  a  data  message  is  stored 
in  a  link.  See  figure  C.3. 

11.7  F.rror  Detecting 

The  end  of  each  message  contains  the  CRC.  The  primary  concern 
of  the  network  is  data  routing  and  transmission,  but  accuracy  is 
also  a  major  concern.  The  CRC  is  simply  a  check-sum  of  all  the  words 
contained  in  the  message. 

A  CRC  is  on  tiie  message,  but  is  also  used  for  comparison  when  a 
message  is  input.  Unfavorable  comparison  results  in  the  message 
being  discarded  and  retransmitted. 

The  MC0850  also  performs  an  error  check  of  each  word  input.  It 
checks  for  framing  errors,  receiver  overrun,  and  proper  parity.  The 
reader  is  referred  to  the  MC0850  SP1.C  sheet  . 
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11.8  Buffer  Definitions 

Certain  data  arravs  are  used  for  the  temr.orarv  storage 


of  information  needed  to  process  nessape 
"Puffers"  art;  explained  here. 


liiese  so  cal  lei. 


RLAC  BUFFLR  -  Re  intrant  RAM 

'I'iie  upper  portion  of 
reintrant  RAM  consists 
of  space  for  storing 
data  to  input  and  out¬ 
put  a  message.  See  ipurc. 

A  typical  buffer  looks 
like  1 1 1  i s : 
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j  local  ack. : 
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i  AC  I  A  '  s 


■HM  foi 
AC  I  A  "  1 


/■111.  foi 
AC  I A  -1 


i .  "  t  \  t  ‘  I  \  *  s  iiav  ’  a  buffer 
.■  \  a  i  l  I  ■  I  i  .  .  ’  i  .  1 . .  i  >  buffer 

is  used  1 1  y  the  in. nit  and  output 
i/tl  crnii/t  rout  i  ties  for  storin' 

.  nessa  ,e  or  receivin'  a  'iessa"e 
f  rotii  data  storage  iuiffers. 


i  I  lor 


I..;-  next  portion  oi  re  in  t  raj.  t  .  .•» 
is  t:,e  'LL,  ■  it  :'nr  local  ack- 
u:w  Led '.'.clients  or  tor  data  messages. 

(See  Fipure)  |;ach  ALIA  also  Jins 
associated  witu  it  a  h!!L.  Described 
as  it  is  in  tlie  f  i  "tire .  Locations 
40-J5  are  the  message  QU!'.  Two 
Tcssa."cs  can  he  placed  in  the  ' >L!  1, 
for  a  particular  AHA.  Locations  *1 0 - 4 ° 
are  for  local  acknowledgements.  They 
contain  all  tnat  is  needed  for  tlie 
sending  of  a  local  acknowledgement,  the 
location  of  the  messare  in  tue  scaler , 
h'i'.'ers  so  it  can  be  cleared  fro::  there, 
f See  local  acknowledgement  scetion) 
Location  4C,  the  buffer  number  of  the 
last  local  acknowledgement  sent  is  used 
so  that  this  local  ack.  message  may  he 
clcareu.  Location  41)  contains  a  constant; 
when  onerated  on  will  reveal  the  linked 
ACIA's  tliat  provide  an  alternate  route 
for  sending  a  message. 


LunLer  of  first  Kuffei 
Limber  of  :.u  ffers 
Lumber  of  torus  in 
Last  buffer 
■v  of  first  .un  '  er 
■"  of  buffers 
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buffer 
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Ac  k . 

Local  Sequence  2  ml 
Ack . 
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Ac  k . 

Local  Sequence  *  4  th 
Ac  k . 


Buffer  <H  of  Last  Ack. 
Sent 

Links  to  Other  ACIA's 


BEGSTR  BUFFER 


Tlie  input  section  of  reintrant  RAM 
will  be  transferred  to  a  Bcpstr 
after  the  message  lias  been  totally 
received.  Also  when  the  output  of 
a  message  is  started.  Beystr  is 
transferred  to  the  output  of 
reintrant  RAM.  The  purpose  of 
Bemstr  is  to  provide  a  means  of 
finding  a  mess  ape  when  the  time 
has  conic  for  it  to  be  processed. 
The  processing  status  of  a  message 
can  be  any  of  tlie  followin'": 


Location  of  the  First  liuftc 

Number  of  buffers 

Number  of  Lords  in  Last  buf 

Processing  Status 

liipb  (Vrdcr  CRC  Calculated 
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BEGBUF  BUFFER 
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beghuf  contains  an  array  ol'  buffer 
navies  and  the  ACIA  that  is  presently 
usin**,  then.  A  general  description 
of  Zegbuf  is  presented  in  Figure  K. 
i i;e  acia  using  buffer  word  is  called 
the  "key"  word. 
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output  of  a  message.  The 
address  for  the  ui rectors 
points  to  an  element  that 
an  address  of  .>>■  Al  l  a 
destination  is 

acia  can  be  gotten  by  placing  this 
destination  in  the  low  order  address 
of  tiie  oircctors  pointer,  XUlREC. 

ZZ  BUFFER 

ZZ  is  the  acknowledgement  needed 
CdF.  ’..hen  a  message  is  outputtco, 
its  first  buffer  number  is  placed 
in  til  is  OUT  so  when  an  acknowledge¬ 
ment  comes,  a  quick  location  of  tiie 
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of  its  proxssing  status  is  achieved. 

Iso  when  a  message  is  outputted,  tiie 
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a  local  ack 
the  message 


iias  not  been  received, 
can  lie  retransmitted 


ACIA 

using 

F0 

l;lf 

ACIA 

using 

IT 

IT 

ACIA 

using 

F2 

F  2 

ACIA 

usin  g 

FF 

FF 

FI  GUI 

T  K 

I10MF.RF.C  BUFFER 


liomerec  is  used  for  process  in. 

Oil 

lessaye  Number 

home  messages  received  from 

HI 

('r  i  i>  i  n 

the  network.  It  keeps  track 

02 

of  hast  Packet  Received 

cf  the  inconi ny  packets  and 

03 

l.ocat  ion  of  l’aci  et  1 

where  they  are  stored  in  RAM. 

01 

Location  of  Packet  2 

ilomercc  nay  be  hotter  under¬ 

03 

.  IdS'lR  Locution  cf  1st 

stood  when  it  is  viewed  in 
its  proper  context  in  the  flov\ 

i)  () 

Packet 

1  ow  (  rder  l.l.USTR  Adurcss 

chart . 

11.9  Flow  Charts 

The  flew  d  i a.1. rail  tnat  makes  up  tiie  rest  of  this 
paper  is  intended  to  tell,  in  real  worus  ,  the  process 
tnat  is  tnkiii  :  >  lace.  f  o r  tiiis  reason,  it  may  not 
he  word  for  word  cor  respond  i  ny  to  tne  pro:rai  listin'1,. 

Also,  one  level  deeper  in  detail  could  have  keen 

cone . 


/  IS  THIS  \ 
THE  FIRST 
PACKET  OF  THE 
MESSAGE? 


/  SUB  \ 

^YES 

FIND  THE 

[  SRCH  I 

HOMEREC 

V  25  / 

FOR  THIS 

V  y 

E 

LOOK  FOR  A 

MESSAGE 

V _ / 

LOCATION  IN 
MINOR V  FOR 
SETTING  UP 
A  HOME  REC. 


^  WAS  ^ 
HOMEREC  FOR 
THIS  MESSAGE 
FOUND 


IF  THE  HOME 
REC  WAS  NOT 
FOUND,  SOMETHING 
IS  WRONG,  CLEAR 
THIS  MESSAGE 
&  WAIT  FOR 
IT  TO  BE  SENT 
AGAIN. 


ARE 

THE  PACKETS 
COMING  IN 
THE  RIGHT 
s.  SEQUENCE? 


UPDATE  BEGSTR 
AND  "ASAU" 
VARIABLES  WITH 
NEW  PACKET 
INFO 


YES 

IF  THE  PACKETS 
ARE  OUT  OF 
^'sQRDER  CLEAR 

THE  MESSAGE 


CLEAR  HOMEREC 
INDICATE  IN 
BEGSTR  THAT  THIS 
HOME  BOUND  MSG 
INC.  HOMEREC 


THE  AC 1A 
THAT  THE 
MESSACE 
BEING  ACK'ED 
CAME  IN 
ON  IS 

GOTTEN  FROM 
begbuf.  BY 
ACLAEG.  THIS 
SO  CALLED 
KEY  WORD 
ACIAEC  RETURNS 
WITH  IS  DECODED 
BY  REINE6 
"QLfEACK" 


SUB 

ACIAE  6 
28 


REFER  TO 
REAG . 

FOR  HELP 

IN  under¬ 
standing 

THIS 

PROCESS 


THE  LOCAL  ACK  IS 
NOT  SENT  IMMEDIATELY, 

IT  SENT  WHEN  SCHEDULING 
PREDICTS.  FOR  NOW 
PROVISIONS  FOR  A 

LOCAL  ACK .  ARE  STOKE 
IN  Till.  LOCAL  ACK. 

QUE  UE  Ml  AC1A. 


SO  REINE6 
WILL  GIVE  US 
THE  PROPER 
AC I A  TO  SET 
UP  THIS  LOCAL 
ACK.  ON. 


STORE  THE 
LOCAL  SEQUENCE 
NUMBER  IN  THE 
ACK.  QUE  ON 
THIS  AClA 


WAS 

THERE  ROOK 
IN  THE  QUE? 


NOTHING  WE 
CAN  DO  BUT  TRY 
AGAIN  LATER 
THE  MESSAGE 
WILL  PROBABLY 
SENT  AGAIN. 


WITH  THE  DESTINATION 
LOOK  IN  THE  DIREC¬ 
TORY  FOR  THE  AC  I A 
FOR  THAI  DEST¬ 
INATION. 


IS 

THAT  AC I A 
BEING  USED? 


SET  REAC  UP 
FOR  OUTPUT. 


/  IS  x 

THE  MESSAGE 
A  SOURCE  ACK 
OR  DATA 

V  MSG?  . 


OUTPUT 
START  OF 
HEADER, 

LET  INT. 
ROUTINE  OUTPUT 
THE  REST  OF 
THE  MSG. 


PUT  THE  MSG 
IN  THE  NEED 
ACK.  QUE. 


RTN 

FROM 

CLASS 


QUE 


DETERMINE 
LINKS  TO  OTHER 
ACIA’S. 

(COUNTER  SET  UP 
TO  CHECK  A  LINKS) 


IS  THIS 

— W  R2D  3 

^ACUBUSV^^^ 

\U 

(  YES 

HAVE 

YES 

LINKS  BEEN  v- 

CHECKED? 

QUE  THIS  ML 

SSAl.L 

NO 

/"is 
THERE 
ROOM  IN 

SET  UP  FOR 
SEARCH  FOR 
NEXT  LINK 


TRY  TO 
QUE  THE 
MESSAGE 
ON  LINK'S 
E 


ANY 

ROOM  IN 
LINK’S  QUE 


STORE  IN  THE 
QUE,  #  OF 
BUFFERS,  #  OF 
WORDS  IN  LAST 
BUFFER, 
FIRST  BUFFER 
NUMBER 


INDICATE  THAT 
THE  MESSAGE 
WAS  NOT  PROCESSED 
IN  BEGSTR 


RETURN 

FRi^M 

CLASS 


THE  DIREC¬ 
TORY  IS 
USED  HERE. 


USE  SUBROUTINE 
BCFALO  TO  FIND 

A  MESSAGE 

TO  FORM 
SOURCE  ACK. 

IN. 


FIND  THE  ACIA 
THAT  MSG  BEING 
SOURCE  ACK* ED  CAME 
IN  ON.  THIS  IS 
THE  ACIA  THAT  WE 
WANT  TO  SEND  SORAC 
OUT  ON  IF 
POSSIBLE. 


DECREMENT 
PROCESSING 
STATUS  OF  MSG 
(NO  SOURCE 
ACK  SENT) 


NO 


CRC  IS  CALCULATED  AND 
INCLUDED  IN  THE  MESSAGE 


IH'TDE:- 


THIS  ROUTINE  PERFORMS 
A  QUE  SEARCH  FOR  MESSAGES. 


SEARCH  FOR 
Qt'E'D  MESSAGE 
IN  AC  M’S  Qll. 
RE INTRANT  RAM 


NOTE :  THE 
HEADER  IS 
ALREADY  FORMED 
AN  A1.L  THE 
NEEDED  INFOR¬ 
MATION  FOR 
SETTING  IT 
REI  NTRA.VT 
IS  HERE 
IN  THE  QUE. 


THE  r 

CT  U 

(1) 

(2) 

(  J) 


INTERRUPT 

ROUTINE 


DETERMINE 
WHICH  ACIA 
INTERRUPTED 


FRAMING  ERROR  THE  READER  IS 

RP'  ERRED  TO  THE 

RECEIVER  OVERRUN  "SPEC”  SHEET  FOR 

I  THE  MC  68?"’  ACIA. 

PARITY  ERROR  I  M6800  MT<"\v>  COMPUTER 

|  SYSTEM  KS.  .N 

1  MANUAL 


y 


CLEAR  REA< 
FOR  THIS  MSG 
FREE  BUFFERS 
.  f  WAS  US  I  N<« 


THERE  IS  A 
POSSIBILITY  OF  A 
GLITCH  ON  THE 
INTERRUPT  LINE 
OR  SOME  OTHER 
UNFORESEEN 
CAUSE  OF  AN 
INTERRUPT.  IF 
THIS  IS  THE 
CASE.  SIMPLY 
DISREGARD  IT. 


YES 


THEN  THIS  SHOULD 
BF  THE  FIRST 
WORD  OF  THE 
MESSAGE  (LIE 
START  OF  HEADER  > 


YES 


ft. 


1 


f 


i 

I 


F- INPUT  IS  USED  TO 
PERMIT  AND  END-OF-TEXT 
SYMBOL  AS  PART  OF 
THE  MESSAGE,  IF  AN  ESCAPE 
CHARACTER  IS  SENT 
IMMEDIATELY  BEFORE. 


HAS 

ESCAPE 

CHARACTER  BEEN 
■v  SENT.' 


CET  A  BUFFER 
FOR  THIS  MSG. 
SUB.  BUFALO" 
27 


BUFFER 

AVAILABLE? 


STORE  BUFFER 
NAME  IN 
FIRST  INPUT 
BUFFER  AND 
PRESENT  BUFFER 
OF  REAC. 


WHEN  ESC.  IS  SENT, 
F- INPUT  IS  SET  TO 
1.  F- INPUT  IS 
THEN  CLEARED  AT 
THE  RECEIPT  OF 
THE  NEXT  WORD. 


SORRY,  NO 
ROOM 

TOSS  MSC. 


REFER  TO 
DISCUSSION  OF 
REINTRANT 
PRECEDING  THIS 
FLOWCHART. 


IS 

THIS  WORD 
AN  ESCAPE 
CHARACTER? 


INCREMENT 
F  INPUT 


IS 

THIS  AN 
END  OF  TEXT 
CHARACTER 


NOTE:  THIS 
SITUATION 
MAXES  IT 
NECESSARY  TO 
SENT1  THE  ESCAPE 
CHARACTER  TWICE 
FOR  IT  TO  BL 
INCLUDED  IN  THE 
MESSAGE 


WORD  IN 
PRESENT 
BUFFER 
INCREMENT 
LOCATION 
IN  BUFFER 


(i.r.  INDICATE 
THERE  STATUS 
TO  SHOW  THAT 
MESSAGE  IS 
FULLY  RECEIVED) 


THIS  FLOWCHART  OF  THE  OUTPUT  ROUTINE 

DIFFERS  WITH  THE  WAY  THE  PROGRAM  LISTING  READS. 

THIS  SECTION  OK  CODE  IS  EXPLAINED  IN  A  CLEARER  WAY. 


1  (  LEAK  KOI'  I  PI  1 
OUTPUT  THF 
ESCAPE  CHAKAC  TLR 
I  OCT PVT  THE 
NEXT  WnRD 
OF  THE  MESSAGE 


I  OUITUI  PROVIDES  THE  SAME  CAPABILITY 
AS  F- INPUT  IN  THh  OUTPUT  SENSE. 

II  ALLOWS  AN  END- OF -TEXT  CHARACTER 
Tf  BF  INCLUDED  IN  THE  OUTPUT  MESSAGE. 
WHEN  F-tU'TPUT  IS  SET.  THF.  NEXT 
CHARACTER  IS  NOT  TO  BE  INTERPRETED 
AS  AND  IN  OF  TEXT. 


RF.TT'RN 

FRvW 

INTRIT 


SUBTRACT  THE 
LOCAL  SER.  #  WE 
ARE  GOING  TO  PLACE 
ON  THE  MESSAGE 
FROM  THE 
PREVIOUS  ONE 


THE  PURPOSE  OF  CHANGE  IS  TO 
RECALCULATE  THE  CRC 
FI-ACFU  WITH  THE  MESSACE 
TO  REFLECT  THE  NEW 
LOCAL  SEQUENCE  NUMBER 
PLACED  WITH  THE  MESSAGE. 


THIS  CHANGE  TAKES  PLACE  IN 
THE  ASAL’  VARIABLES. 


YES 


l  PRESENT  LOCATION  IN  BUFFERS  IS 
]  AT  XI  WHEN  SUBROUTINE 

I  IS  ENTERED  AT  LOOK! 


2 1>4 


B 


TAKE1?:  TAKES  A  BECSTK 
FROM  HAM  AND 
STORES  IT  IN  THE 
ASAU  VARIABLES. 


HI  -  THIS  FINDS  A 
HOME  BOUND 
MESSAGE  BY 
SEARCHING  THROUGH 
BEGSTRS 


PRESENT  LOCATION 
IS  TOP  OP  BEOS  TP 


(1)  LOCATION  OF  FIRST 

buffer  FAKE  YX 

(2)  FIRST  INPUT  BUFFER 
UPPER  ASA  VO 

(3)  NUMBER  OF  BUFFERS 

ASA  VI 

[A)  if  OF  WORDS  IN  LAST 
BUFFER  ASAV2 
;s)  PROCESSING  STATUS 
ASA  V3 

(6)  HIGH  ORDER  CRC 

ASA  V4 

(7)  LOW  ORDER  CRC 

ASA  V5 


IS  THIS 
A  HOME  BOUND 
MESSAGE 


STORE 

THIS  LOCATION 
I  OF  BECSTR 
IN  XZ 


RETURN 
W /  BEGSTR 
LOCATION 
IN  X 


IS  THIS 
THE  LAST 
BEGSTR 


INCREMENT 
TO  THE 
NEXT 
BEGSTR 


PUTOUT  -  WILL 
OUTPUT  A  HOME  MESSAGE 
OVEK  THE  HOME  AC  I A  IF 
IT  IS  NOT  BUSY. 


IS  HOME 
AC LA  BUSS? 


WE  WANT  TO 
OUT  EVERYTHING 
IN  THE  MESSAGE 
BUT  THE  AC1A 


FROM  BEGSTR 
SET  REAC 
FOR  OUTPUT 
OVER  THE 
HOME  ACIA. 


OUTPUT  THE 
FIRST  WORD 
TO  THE  HOME 
ACIA,  LET  THE 
REST  OF  THE 
MESSAGE  BE 
OUTPUTTED  BY 
I NT ERUPT 


NOTICE  HERE  THAT 
NO  PROVISION  HAS 
BEEN  MADE  FOR 
NOT  FINDING  A  HOMEREC. 


SUBROUTINE  RETURNS 
.WITH  HOMEREC 
LOCATION  IN  X 


<>() 


WITH  X  CONTAINING 
THE  LOCATION  OF 
HOMEREC 


WITH  A  BEING  A  FLAG 
INDICATING  MESSAGE 
NOT  FOUND. 


CRCLK  &  CRCCK  BOTH  WILL  BE 
DIAGRAMMED  HERE. 

THERE  PURPOSE  IS  TO  FIND  A 
MESSAGE' S  CRC  AND  CHECK 
IT  WITH  THE  ONE  CALCULATED 
WHEN  THE  MESSAGE  WAS  INPUTTED 


EXAMPLE  OF  BUFFER  LINKAGE 
AND  LOCATION  OF  CRC 


FIRST 

BUFFER 


LOC.  FIFE 


BUFFER 
F  1 


F  2 


j  BUFFER 
MESSAGE 


J<.  7 


LOC'S  F3K- 
F3FF 


BUFFER 
F  3 


m. 

CRCL 


RTN 

FROM 

CRCK 


FIND  THE 
CRC  AND 
CHECK  IT. 


GO  TO  THE  MESSAGE 
FIND  THE  MESSAGE 
BEING  ACK’FJ) 

PUT  IN  VARIABLE 
BUF.  POINT  X  TO 
BEGSTR. 


/ 

CLEAR  THE 
LOCAL 

ACK 

MESSAGE 

CLEAR  LOCAL 
ACK.  FROM 
BEGSTR  ft 
BEG BUF 


/  RTN  \ 
(  FROM 
\  ACKNAC1  J 


ACKNAC  CLEARS  THE  LOCAL 
ACKNOWLEDGEMENT  MESSAGE 
FROM  BEGSTR  &  BEG BUF. 


CLR  ZZ 


CLKEb  -'CLEARS* 
A  BEX.STR 


CLRZZ  CLEARS  A  MESSAGE 
FRtJlM  THE  ACK. 

NEEDED  QUF.  (ZZ) 


PRESENT  LOC. 
IS  AT  THE 
TOP  OF  ZZ 


WHEN  CLRZZ  IS  CALLED 
THE  MESSAGE  BEING 
ACK’ED  IS  IN 
ACCUMULATOR  B 


CLRE6  -  C LIARS 
THE  BUFFER 
IN  USE  FLAG 
FROM  BEGBUF 
WHEN  CALLED 
’  B’  CONTAINS  FIRS: 
INPUT  BUFFERS 
'A'  CONTAINS 
NUMBER  OF  BUFFERS. 


PUT  POINTER 
AT  TOP  OF 
BEGBUF 


BUFALO  -  BUFFER  ALLOCATION 
Sl'BKOfj  I SF  ,  THIS 
SLBKOiriNF  SEARCHES 
BEGBUF  FOR  A 
FREE  BUFFER  ASl> 

ASS  IONS  IT  TO  AN 
AC  l A .  WHEN  BUFALO 
IS  CALLED  ACC  ’  B‘ 
CONTAINS  THE  KFY 
WORD  SPECIFYING 
WHO  WILL  USE  THE 
BUFFER. 


A  ZERO  IN 
AC(  A  INDICATES 
THAI  NOT  A 
BUFFER  WAS 
FOUND 


PUT  THE 
BUFFER 
NAME 
IN  ACCA 

_ 


♦NOTE  ACCA  -  ACCUMULATOR  ’A 


PRESENT 
LOCATION 
IS  TOP  OF 
BECBUF 


ACIAE6  - 
THIS  SUBROUTINE 
WILL  FIND  THE 
KEY  WORD,  OF 
A  BUFFER. 

KEY  WORp 
WILL  BE 
USED  TO  SET 
UP  THE  LOCAL 
ACK. 


PRESENT 
LOCATION  IS 
AT  TOP  OF 
LOCAL  ACK. 
QUE  FOR 
AN  ACIA 


REINE6  - 
TAKES 
THE  KEY 
WORD  AND 
INTERPRETS 
IT  INTO 
A  LOCATION 
IN  REINTRANT 
RAM 


QUEACK  WILL 
SEARCH  IN  THE 
LOCAL  ACK. 

QUE  FOR  A 

FREE  SPACE 

AND  STORE 

THE  LOCAL  SEQUENCE 

NUMBER  THERE. 


71 


©ECHO  -  THIS  SUBROUTINE  ECHOfiS  THE  INPUTTED 

CHARACTER  BACK  TO  THE  HOST. 

THE  FLOWCHART  OF  THIS  SUBROUTINE 
IS  NOT  COMPLETE. 


PRESENT 
LOCATION  IS 
AT  TOP  OF 
BEGBUF. 


FREBUF  -  THIS  SUBROUTINE  FREES 

A  BUFFER  FOR  USE  BY  OTHER 
ACIA’S.  WHEN  CALLED  THE  KEY 
WORD  OF  THE  BUFFER  TO  BE 
FREED  IS  IN  THE  'B'  ACCUMULATOR. 


7 


THE  *A5AU. ' 

variabi.es 

GOTTEN 
IN  *  TAKES ' 
PROVIDE 
THIS  INFOR¬ 
MATION. 


KIND  A  V:  Sv\(  R 

m\r  is  s-.u\ 

Fo-c  i»’j  *  ;• . :  r«i 

host.  jn 

in.-:  :\;u -  >si,v. 
Si-Wt'S  iV  i. !-(.'*>  j  k 
IVUCAT  ^  HO?U - 
BOUND,  o:  TPU1 
THr  MESSAGE  TO 
THE  HOST.  IF  THU 
HOST  AO  1 A  IS 
BUSY,  K  P 
THE  MESSAGE 


GO  BACK  TO  THE 
MAIN  ROUTINE. 


I 


I 


SET  UP 
LOCAL  ACK. 
FOR  THIS 
M SO.  IS 
THE  LOCAL 
ACK.  QUE 


RECALCULATE 
THE  CRC  UTPi 
THE  NEW  !  OCAL 
SEO.  NUMBER 


OUTPUT 
THIS  MESSAGE 
TO  ITS 
DESTINATION 
IN  THE  NETWORK. 


THIS  ROUTINE 
PROCESSES  A 
DATA  MESSAGE 


STORE  LOCAL 
SEQUENCE  NUMBER 
IN  PAC. 

STORE  ORIGIN  IN  "ORIGIN" 


STORE  DESTINATION 
IN  "DESTIN" 
STORE  MFSSACE 
IN  "MESNO" 
STORE  SEQlTNCE  It 
IN  "SEQNO" 


IP  Tliiicr  I*’  A  i’»0 

LKK  I  if  i  »'  .  .  ,i; 

Sih‘( u>  Vi  i  .-.i  : 

BE  KFPT.  I.  WILL 
!•;'  w-  '•  >;  AN  .Mill  Ijj 


I 


12.  APPENDIX  D- -COBOL  PROGRAM 


HfcCMlW  FACS  fiUMbJWr  FILMED 


MICROSOFT  COBOL-88  V2.8...  DEMO  COB  18/24/78  PACK  1 


I PINT IP I CAT I  ON  DIVISION. 

PB OGHAM-ID. 

INVENTORT-DEMO-PROG. 

DATE-NBITTIN.  ORIGINALLT  7  FEB  1979 

COMPLETED  APPBOZIMATXLT  28  JUL  1979. 


e 

• 

9 

ENVIBONMZNT  DIVISION. 

18 

CONFIGURATION  SECTION. 

11 

SOOHCE-COMPUTER. 

12 

INTEL  8888 . 

13 

OBJECT-COMPUTER. 

14 

INTEL  8888. 

15 

INPUT-OUTPUT  SECTION. 

16 

FILE-CONTROL. 

17 

SELECT  DATA-FILEl  ASSIGN  TO  DISK 

18 

ORGANIZATION  IS  INDEXED  ACCESS  MODE  IS 

19 

RECORD  KET  IS  PRTNO . 

28 

DATA  DIVISION. 

21 

FILE  SECTION. 

22 

?D 

DATA-FILEl 

23 

LABEL  RECORDS  ARE  STANDARD 

24 

DATA  RECORD  IS  DATA-BASE 

25 

VALUE  OF  FILE-ID  IS  " :FB  :DATA1 . IND"  . 

26 

01 

DATA-BASE. 

27 

85  PRTNO  PIC  1(3). 

28 

85  BLANI1  ?IC  X(5). 

29 

85  PT-NM  PIC  X(6). 

38 

85  STOCK  1  PIC  999. 

31 

85  ON-ORDXR1  PIC  999. 

32 

85  THRESHOLD1  PIC  999. 

33 

85  ORDER-S IZE1  PIC  999. 

34 

* 

35 

♦JD 

NETWORK-IN 

36 

♦ 

ABOVE  FOR  CS-28'S  BENEFIT  ONLT 

37 

*FD 

NETWORK -OUT 

38 

* 

ABOVE  FOR  CS-28  ONLT  SO  IGNORE 

39 

*FD 

AUDIT-FILE 

48 

• 

ABOVE  FOR  PDP-11  AUDIT  TRAIL  FILE 

41 

* 

42 

WORKING-STORAGE  SECTION. 

43 

*81 

COMMUN I  CATIONS -STORAGE . 

44 

81 

MICRO-FLAG  PIC  9. 

45 

81 

MESSAGE-SEND-LENGTH  USAGE  IS  INDEX. 

46 

81 

MESSAGE-LENGTH  USAGE  IS  INDEX. 

47 

81 

MESSAGE-BUFFER. 

48 

85  SOURCE-DESTINATION  PIC  X. 

49 

85  MESSAGE-CONTROL. 

58 

18  MESSAGE-CLASS  PIC  X. 

51 

18  LAST-OF-NESSAGE  PIC  X. 

52 

18  FILLER  PIC  X (5) . 

53 

85  MESSAGE-DATA  PIC  X(72). 

54 

85  MESSAGE-DATA2  REDEFINES  MESSAGE-DATA. 

55 

18  MESSAGE-DATA  1  PIC  X  OCCURS  72  TIMES 
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56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 


84 

85 

86 
87 


01 


01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 


INDEX ID  BT  MBS -INDEX. 

05  FILLER  FIC  1(8). 

MXSS4GB-BUF  REDEFINES  MESSAGE-BUFFER . 
05  MESSAGE-BUFF  FIC  X<70). 


05  FILLER 
LOCAL-FLAG  FIC  X 
H6800-CODX  FIC  X 
FDF11-C0DX  FIC  X 
INTEL-CODE  FIC  X 
CS-20-CODE  PIC  X 
RETURN-ADDRESS  FIC 
REMOTE-COMMAND  FIC 


PIG  J(18). 
VALUE  T  . 

A  . 

B". 

c:. 

D  . 


VALUE 

VALUE 

VALUX 
VALUE 
X. 
X. 


REMOTE-ADDRESS  FIC  X. 

NAIT-FOB- ANSWER  PIC  X. 

COM-FUNCTION  FIC  X. 

DUM-DUM-TABLE . 

03  DUM-DUM  FIC  X  OCCURS  2  TIMES, 
COMMAND-STRING. 

05  MAX-LENGTH 
05  FART-STRING1 . 

10  FIRST-CHARACTXR  FIC  X. 

10  REST-COMMAND  FIC  X  OCCURS  29  TIMES. 
05  FART-STRING  REDEFINES  PART-STRINGl . 


USAGE  IS  INDEX. 


79 

10 

FART-NUM 

FIC  X ( 13) 

80 

10 

DIGITS  REDEFINES  FART-NUM 

81 

15  DIGIT-3 

FIC  X(3) . 

82 

15  FILLER 

PIC  X(10) 

83 

10 

FILLER 

FIC  1(17) 

05  OUT-COMMAND  REDEFINES  PART-STRING. 

10  COMMAND-OUT  FIC  X  OCCURS  30  TIMES 
05  PART-NUMBER  REDEFINES  OUT-COMMAND  FIC 
INDEXED  BT  II.  AACTUAL. 


INDEXED  XT  13. 

X  OCCURS  30  TIMES 


88 

* 

89 

01 

STRINGB. 

90 

05  MAXB  USAGE  IS  INDEX. 

91 

05  STRING2  PIC  X  OCCURS  10  TIMES  INDEXED  BT  12 

92 

01 

DEBUG  FIC  X  VALUE  "n". 

93 

01 

STOP-FLAG  FIC  I  VALUE  "T". 

94 

01 

CURRENT-DATE  FIC  X(8). 

95 

01 

LIST. 

96 

05  MAXI  USAGE  IS  INDEX. 

97 

05  FILLER  FIC  1(10)  VALUX  "LIST 

98 

01 

INITIALIZE. 

99 

05  MAX  USAGE  IS  INDEX. 

100 

05  FILLER  FIC  X(10)  VALUX  "INITIALIZE". 

101 

01 

UPDATE. 

102 

05  MAX2  USAGE  IS  INDEX. 

103 

05  FILLER  FIC  X(10)  VALUE  "UPDATE 

104 

01 

STOCK. 

105 

05  MAX3  USAGE  IS  INDEX. 

106 

05  FILLER  PIC  X(10)  VALUE  "STOCK 

107 

01 

ON-ORDER. 

108 

05  MAX4  USAGE  IS  INDEX. 

109 

05  FILLER  FIC  X(10)  VALUE  "ON ORDER 

110 

01 

THRESHOLD. 
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r 


i 

i 

» 

j 

i 

i 


I 

.S' 


J 

i 


111 

65 

MAX5  USAGE  IS  INDEX. 

112 

65 

FILLER  PIC  X(16 )  VALUE  "THRESHOLD 

113 

61 

ORDER-SIZE. 

114 

65 

MAX6  USAGE  IS  INDEX. 

115 

65 

FILLER  PIC  X( 16 )  VALUE  "ORDERSIZE 

116 

61 

COMMAND. 

117 

65 

ACTION  PIC  X. 

116 

65 

ESN  TRY  PIC  X. 

119 

65 

QUANTITY-SIGN  PIC  X  VALUE 

126 

65 

QUANTITY  PIC  999. 

121 

65 

PARTNO  PIC  X(13)  VALUE  " 

122 

65 

PART-NAME  PIC  X(26)  VALUE  " 

123 

61 

PUGS . 

124 

65 

ACTION-FLAG  PIC  X  VALUE  N  . 

125 

65 

REPEAT-FLAG  PIC  X. 

126 

65 

ERROR-FLAG  PIC  X. 

127 

61 

DUMMY -PUG  PIC  X. 

128 

61 

THANS-PLAG  PIC  X. 

129 

61 

SAME-PUG  PIC  X. 

136 

61 

NEW 

-BUFFER  PIC  X. 

131 

61 

NO- 

INPUT-FLAG  PIC  X  VALUE  "N". 

132 

61 

BUFFIB-EMPTT  PIC  I  TALUE  N  . 

133 

61 

EMPTY-LINE  PIC  X. 

134 

61 

YES 

PIC  X  VALUE  T  . 

135 

61 

NONO  PIC  X  VALUE  N  . 

136 

61 

PABTNO-STOBAGE . 

137 

65 

DUMMY -ARRAY  PIC  X  OCCURS  166  TIMES 

138 

INDEXED  BY  I. 

139 

65 

TEM  PIC  X. 

146 

* 

141 

61 

DATA-BUFFER . 

142 

65 

PART-NUMB  PIC  X ( 3 ) . 

143 

65 

BLANK -BUF  PIC  X(5). 

144 

65 

PRT-NME  PIC  X(6) . 

145 

65 

STCE  PIC  999. 

146 

65 

ON-ORDR  PIC  999. 

147 

65 

THRESHLD  PIC  999. 

148 

65 

ORDR-SIZE  PIC  999. 

149 

61 

BEADING-LINE. 

156 

65 

FILLER  PIC  X(ll)  VALUE  PART  NUMBE 

151 

65 

FILLER  PIC  XXI  VALUE  " 

152 

65 

FILLER  PIC  X(9)  VALUE  "PART  NAME". 

153 

65 

FILLXR  PIC  X (4 )  VALUE  " 

154 

65 

FILLER  PIC  X(5)  VALUE  "STOCK". 

155 

65 

FILLER  PIC  X  VALUE  "  ”, 

156 

65 

FILLER  PIC  X(8)  VALUE  'ON  ORDER  . 

157 

65 

FILLER  PIC  X  VALUE  "  ". 

158 

65 

FILLER  PIC  X(9)  VALUE  "THRESHOLD" . 

159 

65 

FILLER  PIC  X  VALUE  "  ". 

166 

65 

FILLER  PIC  X(16 }  VALUE  "ORDER  SIZE 

161 

61 

PRINT-LINE. 

162 

65 

PART-NUM-OUT  PIC  X(13). 

163 

65 

FILLER  PIC  X  VALUE  '  ". 

164 

65 

PART-NAMX-OUT  PIC  X(12). 

165 

65 

FILLER  PIC  XX  VALUE  "  ", 
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166 

05  STOCI-OUT  PIC  999. 

16? 

05  FILLED  PIC  X(4)  VALUE  " 

• 

168 

05  ON-ORDER-OUT  PIC  999.  , 

169 

05  FILLER  PIC  X(7)  VALUE 

170 

05  THRESHOLD-OUT  PIC  999. 

171 

05  TILLER  PIC  X(7)  VALUE  " 

** 

172 

05  ORDER-SIZE-OUT  PIC  999. 

173 

01 

ERROR-LINE. 

174 

05  FILLER  PIC  X(  12 )  VALUE 

"PART  NUMBER  ". 

175 

05  ERROR-PRINT  PIC  X(13). 

176 

05  FILLER  PIC  X(24)  VALUE 

”  IS  NOT  IN  TBE  DATA  BASE 

177 

01 

DELETE-LINE. 

178 

05  FILLER  PIC  X(12)  VALUE 

"PART  NUMBER  “. 

179 

05  DELETE-PRINT  PIC  X(13). 

180 

05  TILLER  PIC  X( 17)  VALUE 

"  HAS  BEEN  DELETED". 

181 

01 

ADD-LINE. 

182 

05  FILLER  PIC  X(1 2)  VALUE 

"PART  NUMBER". 

183 

05  ADD-PRINT  PIC  X ( 13) . 

184 

05  FILLER  PIC  X (15  )  VALUE 

"HAS  BEEN  ADDED". 

185 

01 

PRESENT-LINE. 

186 

05  FILLER  PIC  X (12 )  VALUE 

"PART  NUMBER". 

187 

05  DATA-PRES-PRINT  PIC  X ( 13 ) . 

188 

05  FILLER  PIC  X( 19 )  VALUE 

IS  ALREADY  PRESENT  . 

189 

05  TILLER  PIC  X( 16 )  VALUE 

"IN  THE  DATA  BASE". 

190 

01 

INTERNAL-ERROR -ENTRY . 

191 

05  TILLER  PIC  X(22'  VALUE 

"INTERNAL  ERROR.  ENTRY=". 

192 

05  ENTRY -ERBOR  PIC  X. 

193 

01 

INTERNAL-ERROB-COMMAND . 

194 

05  FILLER  PIC  1(24)  VALUE 

"INTERNAL  ERROR.  COMMAND= 

195 

05  COMMAND-ERHOH  PIC  X. 

196 

01 

VALUE-TOO-BIG  PIC  1(26) 

197 

VALUE  "VALUE  TOO  LARGE 

-  999  USED". 

198 

01 

MISCELLANEOUS. 

199 

05  ERB0R1-FLAG  PIC  X. 

200 

05  TEMP  PIC  999. 

201 

01 

INDEX-CONSTANTS. 

202 

05  ONE  USAGE  IS  INDEX. 

203 

05  FOUR  USAGE  IS  INDEX. 

204 

05  EIGHTY  USAGE  IS  INDEX. 

205 

01 

D-I-P-T  PIC  X. 

206 

01 

M-D-B-F  PIC  X. 

207 

01 

COMMAND-SPACE. 

208 

05  COMMAND-LINE. 

209 

10  COMMAND-BUFFER  PIC 

X  OCCURS  70  TIMES 

210 

INDEXED  BY  TEM-PTH,  PTR ,  TPTR . 

211 

05  FILLER  PIC  X(10). 

212 

01 

BUFFER-LENGTH  USAGE  IS  INDEX. 

213 

01 

ADDIT. 

214 

05  MAX7  USAGE  IS  INDEX. 

215 

05  FILLER  PIC  X(10)  VALUE 

"ADD 

216 

01 

DELETE-IT . 

217 

05  MAX8  USAGE  IS  INDEX. 

218 

05  FILLXB  PIC  X(10)  VALUE 

"DELETE 

219 

01 

STOP-IT . 

220 

05  MAX9  USAGE  IS  INDEX. 
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221 

05  FILLER  PIC  1(10}  VALUE  "STOP 

222 

01 

HELP. 

223 

05  MAX10  USAGE  IS  INDEX. 

224 

05  FILLER  PIC  X( 10 )  VALUE  "HELP 

225 

01 

REMOTE-NAME. 

226 

05  MAX11  USAGE  IS  INDEX. 

227 

05  FILLER  PIC  X(10)  VALUE  "REMOTE 

228 

01 

SBND-IT. 

229 

05  MAX16  USAGE  IS  INDEX. 

230 

05  FILLER  PIC  X(10)  VALUE  "SEND 

231 

01 

M6800. 

232 

05  MAX12  USAGE  IS  INDEX. 

233 

05  FILLER  PIC  X(10)  VALUE  "M5800 

234 

01 

PDP11. 

235 

05  MAX13  USAGE  IS  INDEX. 

236 

05  FILLER  PIC  X ( 10  )  VALUE  "PDP11 

237 

01 

INTEL. 

238 

05  MAX14  USAGE  IS  INDEX. 

239 

05  FILLER  PIC  X(10)  VALUE  "INTEL 

240 

01 

cs2e. 

241 

05  MAX15  USAGE  IS  INDEX. 

242 

05  FILLER  PIC  X(ie)  VALUE  "CS-20 

243 

01 

FIRST-TIME-THRU  PIC  9  VALUE  1. 

244 

*  END  OF  WORKING  STORAGE  SECTION. 

245 

* 

246 

PROCEDURE  DIVISION. 

247 

MAIN-PROGRAM. 

24e 

PERFORM  INITI ALIZE-FOR-DAY . 

249 

PERFORM  COMMAND-PROCESS  UNTIL  STOP-FLAG  = 

YES  . 

250 

PERFORM  END-DAT. 

251 

STOP  RUN. 

252 

♦ 

253 

COMMUNICATE. 

254 

* 

THIS  PARAGRAPH  IS  A  SUBROUTINE  THAT  IS  SPECIFIC  TO  EACH 

255 

* 

COMPUTER  IT  HANDLES  THE  INTERFACE  WITH  THE 

NETWORK. 

256 

* 

LOCAL-FLAG  INDICATES  WHETHER  A  TRANSACTION  COMES  FROM 

257 

* 

THIS  MACHINE. 

256 

* 

COM-FUNCTION  TELLS  WHETHER  TO  SEND  RECEIVE  OR  INITIALI! 

259 

* 

MESSAGE-BUFFER  CONTAINS  THE  DATA  TO  BE  TRANSFERRED 

260 

* 

MESSAGE  LENGTH  IS  THE  NUMBER  OF  CHARACTERS  TRANSFERRED 

261 

* 

262 

IT  DEBUG  «=  TES 

263 

DISPLAY  "NETWORK  CALLED”  COM-FUNCTION 

264 

ELSE 

265 

PERFORM  COM-DUMMT  . 

266 

COM 

-DUMMY  . 

267 

IF  COM-FUNCTION  «=  V 

268 

PERFORM  NETWORK-INITIALIZE 

269 

ELSE 

270 

IF  COM-FUNCTION  «  "s" 

271 

PERFORM  NETWORK-SEND 

272 

ELSE 

273 

IF  COM-FUNCTION  -  "s" 

274 

PERFORM  NETWORK -RECEIVE 

275 

ELSE 
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276 

277 

278 

279 

280 
281 
282 

283 

284 
28  5 
286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 


DISPLAT  "ILLEGAL  COMMAND  TO  COMMUNICATE"  COM-PUNCTION 
STOP  SUN. 

* 

network-initjalize. 

DISFLAT  INITIALIZE  THE  NETWORK  . 

SET  MESSAGE-LENGTH  TO  4. 

*  USE  MESSAGE-LENGTH  TO  PASS  A  REQUEST  FOR  1200  BAUD. 
CALL  "INITIALIZE"  USING  MESSAGE-LENGTH. 

* 

networi-send. 

SET  MESS AGE-SEN D-LENGTH  TO  MESSAGE-LENGTE . 

CALL  "SENDMESSAGE" 

USING  MESSAGE-BUFFER  MESSAGE-SEND-LENGTH. 

* 

NETWORK -RECEIVE. 

MOVE  SPACES  TO  MESSAGE-BUFFER. 

CALL  "RECEIVEMESSAGE” 

USING  MESSAGE-BUFFER  MESSAGE-LENGTH. 

* 

INITIALIZE-FOR-DAT. 

SET  I  TO  1. 

SET  ONE  TO  I  . 

SET  I  TO  3. 

SET  MAX7  TO  I  . 

SET  I  TO  4. 

SET  MAI1  TO  I. 

SET  MAI9  TO  I. 

SET  MAX10  TO  I. 

SET  MAX16  TO  I. 

SET  FOUR  TO  I. 

SIT  I  TO  5. 

SET  MAI3  TO  I. 

SET  MAX12  TO  I. 

SET  MAX13  TO  I. 

SET  MAX 14  TO  I. 

SET  MAX15  TO  I. 

SET  I  TO  6. 

SET  MAX2  TO  I  . 

SET  MAX8  TO  I. 

SET  MAX11  TO  I. 

SET  I  TO  7. 

SET  MAI4  TO  I. 

SET  I  TO  9. 

SET  MAI 5  TO  1. 

SET  MAI6  TO  I. 

SET  I  TO  10. 

SIT  MAX  TO  I. 

SET  I  TO  30. 

SET  MAX-LENGTH  TO  I. 

SET  I  TO  80. 

SIT  EIGHT!  TO  1. 

MOVE  SPACES  TO  BLANK-BUF. 

MOVE  NONO  TO  HEMOTE-COMMAND. 

MOVE  NONO  TO  WAIT-FOR-ANSWER . 

DISPLAT  "INVENTOR!  PROGRAM  VERSION  1.0". 


282 


MICROSOFT  COBOL-80  V2.B 


DEMO  COB 


ie/24/76  i  0:00:00 


PACE  7 


331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 


DISPLAY  "ENTER  DATE  ( DD/MM/YT ) " . 

ACCEPT  CDRRENT-DATE. 

PERFORM  OPEN-AUDIT-FILE. 

MOVE  “i"  TO  COM- FUNCTION . 

PERFORM  COMMUNICATE. 

*  ABOVJJ  HAS  INITIALIZED  TEE  NETWORK  PORT. 

MOVE  "C  '  TO  ACTION. 

MOVE  "I"  TO  EENTRT . 

MOVE  0  TO  CUANTITY. 

PERFORM  TRANSACTION-PROCESSOR. 

MOVE  NONO  TO  STOP-FLAG. 

DISPLAY  "ENTER  HELP  FOR  A  LIST  OF  CURRENT  CAPABILITIES". 

* 

OPEN-AUDIT-FILE. 

PERFORM  DO-NOTHING. 

*  FOR  MICRO  THIS  IS  A  DUMMY  PARAGRAPH 

* 

END-DAY. 

MOVE  "c"  TO  ACTION. 

MOVE  "E"  TO  EENTRY. 

PERFORM  TRANSACTION-PROCESSOR. 

DISPLAY  "END  OF  DAY  PLEASE  REMOVE  DISKETTE-. 

* 

COMMAND-PROCESS. 

IF  DEBUG  =  YES  DISPLAY  ‘COMMAND  PROCESS  ENTERED". 

SET  MESSAGE-LENGTH  TO  FOUR. 

PERFORM  PROCESS-MESSAGE  UNTIL  MESSAGE-LENGTH  <  ONE. 

IF  WAIT-FOR-ANSWER  *  NONO 
PERFORM  ASK-FOR-INPUT. 

* 

ASK-FOR-INPUT. 

DISPLAT  "ENTER  PART  NUMBER  OR  COMMAND". 

MOVE  YES  TO  LOCAL-FLAG. 

MOVE  YES  TO  NEW-BUFFER. 

PERFORM  READ-INPUT. 

IF  FIRST-CHARACTER  IS  NOT  ALPHABETIC 
PERFORM  PART-NUMBER-PROCESSOR 
ELSE 

•  PERFORM  COMMAND-PROCESSOR. 

4 

PROCESS«tSESSAGE. 

MOVE  "?"  TO  COM-FUNCT ION  . 

PERFORM  COMMUNICATE. 

IF  MESSAGE-LENGTH  NOT  <  ONE 
IF  MESSAGE-CLASS  «  "c" 

PERFORM  APPLT-COMMAND 
ELSE 

IF  MESSAGE-CLASS  -  "D 
PERFORM  DISPLAY-COMMAND 
ELSE 

IF  MESSAGE-CLASS  =  "A” 

PERFORM  AUDIT-COMMAND 

ELSE 

DISPLAY  SOURCE-DESTINATION  MESSAGE-CONTROL 
DISPLAT  MESSAGE-DATA. 
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386 

387 

388 

389 
39  e 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 


DISPLAT-COMMAND. 

DISPLAY  MESSAGE-DATA. 

II  LAS T-OF -MESS AGE  =  YES 

MOVE  NONO  TO  VAIT-FOR-ANSWER. 

► 

APPLT-COMMAND. 

MOVE  NONO  TO  LOCAL-FLAG. 

MOVE  SOURCE-DESTINATION  TO  RETURN-ADDRESS. 

MOVE  MESSAGE-DATA  TO  COMMAND. 

PERFORM  TRANSACTION-PROCESSOR. 

MOVE  YES  TO  LOCAL-FLAG . 

t 

AUDIT-COMMAND. 

DISPLAY  "AUDIT  TRAIL  MESSAGE 

DISPLAY  SOURCE-DESTINATION  MESSAGE-CONTROL. 

DISPLAY  MESSAGE-DATA. 

* 

PART-NUMBER-PROCSSSOR. 

IF  DEBUG  -  YES  DISPLAY  "PART  NUMBER  PROCESSOR  ENTERED”. 
MOVE  NONO  TO  ERROR-FUG. 

MOVE  ”  "  TO  PARTNO. 

MOVE  “l"  TO  ACTION. 

MOVE  "  "  TO  EENTRY. 

MOVE  TO  QUANTITY-SIGN. 

MOVE  0  TO  QUANTITY. 

MOVE  "  "  TO  PART-NAME. 

PERFORM  PARTNO-CHECK. 

IF  ERROR-FLAG  -  NONO 

PERFORM  CHECK-OTHER-FIELDS. 

t 

CHECK-OTHER-FIELDS. 

MOVE  YES  TO  REPEAT-FLAG. 

MOVE  NONO  TO  IRROR-FLAC. 

PERFORM  ACTION-CHECK  UNTIL  REPEAT-FLAG  -  NONO. 

IF  ACTION-FLAG  «  YES 

MOVE  YES  TO  REPEAT-FLAG 
MOVE  NONO  TO  ERROR-FLAG 

PERFORM  ENTRY-CHECK  UNTIL  BEPEAT-FIAG  -  NONO 
MOVE  YES  TO  REPEAT-FLAG 
MOVE  NONO  TO  ERROR-FLAG 

PERFORM  VALUE-CHECK  UNTIL  REPEAT-FLAG  «  NONO. 
PERFORM  TRANSACTION-PROCESSOR. 

PARTNO-CHECK. 

IF  DEBUG  *  YES  DISPLAY  "PARTNO  CHECK  ENTERED". 

MOVE  NONO  TO  ERROR-FUG. 

PERFORM  DIGIT-CHECK 

VARYING  II  FROM  1  BY  1 

UNTIL  (II  >  13  OR  ERROR-FLAG  «  YES). 

IF  ERROR-FLAG  -  NONO 

MOVE  PART-NUM  TO  PARTNO 

ELSE 

DISPLAY  "PART-NUMBERS  CONTAIN  ONLY  DIGITS.". 
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491 

492 

493 

494 

49 'i 


DIGIT-CHECK. 

MOVE  PART-NUMBER(It)  TO  TIM. 

IP  TIM  IS  NUMERIC  OB  TIM  =  " 

NEXT  SENTENCE 

ELSE 

MOVE  TES  TO  ERROB-FLAG. 

e 

BEAD-DATA. 

MOVE  TES  TO  NEV-BUFFEB . 

MOVE  TES  TO  NO-INPUT-FUG. 

PERFORM  BEAD-INPUT. 

[ 

ACTION-CHECK. 

IF  DEBUG  *  TES  DISPLAT  'ACTION  CHECK  ENTERED  . 

IF  SBROR-FLAG  -  NONO 

MOVE  NONO  TO  NEV-BUFFER 
PERFORM  BEAD-INPUT. 

IF  {NO-INPUT-FLAG  *  TES  OB  EBBOB-FLAG  =  TES) 

DISPLAT  "ENTER  ACTION  -  LIST, UPDATE  OR  INITIALIZE" 
PEBFOBM  BEAD-DATA. 

MOVE  NONO  TO  BEPIAT-FLAG . 

MOVE  LIST  TO  STBINGB. 

PEBFOBM  RECOGNIZE. 

IF  SAME-FLAG  =  TES 

MOVE  "L"  TO  ACTION 
MOVE  NONO  TO  ACTION-FLAG 
ELSE 

MOVE  UPDATE  TO  STBINGB 
PEBFOBM  BECOGNIZE 
IF  SAME-FLAG  ■=  TES 

MOVE  "U"  TO  ACTION 
MOVE  TES  TO  ACTION-FLAG 
ELSE 

PERFORM  ACTION -CHECH . 

ACTION— CHECK1 . 

MOVE  INITIALIZE  TO  STRINGB 
PEBFOBM  BECOGNIZE 
IF  SAME-FLAG  «  TES 
MOVE  "I"  TO  ACTION 
MOVE  TES  TO  ACTION-FLAG 

ELSE 

DISFLAT  "I LEGAL  ACTION  CODE  -  BE-INTEB 
MOVE  TES  TO  REPEAT-FLAG 
MOVE  TES  TO  EBBOB-FLAG. 

ENTBT-CHECK . 

IF  DEBUG  *  TES  DISPLAT  "ENTBT  CHECK  ENTERED" . 

IF  EBBOB-FLAG  -  NONO 

MOVE  NONO  TO  NEB-BUFFER 
PEBFOBM  BEAD-INPUT. 

IF  (NO-INPCT-FLAG  -  TES  OB  SBBOB-FUG  =  TES) 

DISPLAT  "ENTER  CODE  FOB  ENTBT  TO  BE  CHANGED" 

DISPLAT  "  STOCK,  ON  OBDEB,  THRESHOLD  OB  ORDER  SIZE" 
PEBFOBM  BEAD-DATA. 

MOVE  NONO  TO  REPEAT-FUG. 
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496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 
615 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 
**** 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 


MOVE  STOCK  TO  STRINGB. 

PERTORM  RECOGNIZE. 

IF  SAME-FLAG  =  TES 

MOVE  S  TO  EENTRY 

ELSE 

MOVE  ON-ORDER  TO  STRINGE 
PERFORM  RECOGNIZE 

IF  (SAME-FLAG  =  TES  AND  AACTUAL  >  1) 

MOVE  "0"  TO  EENTRT 

ELSE 

PERFORM  ENTRT-CHEC1C1  . 

* 

ENTRT-CHECK1. 

MOVE  THRESHOLD  TO  STRINGB 
PERFORM  RECOGNIZE 
IF  SAME-FLAG  *=  TES 

MOVE  "T“  TO  EENTRT 

ELSE 

MOVE  ORDER-SIZE  TO  STRINGB 
PERFORM  RECOGNIZE 

IF  (SAME-FLAG  *  TES  AND  AACTUAL  >  1) 

MOVE  "z”  TO  EENTRT 

ELSE 

DISPLAT  "ILLEGAL  ENTRY  CODE' 

MOVE  TES  TO  REPEAT-FUG 
MOVE  TES  TO  ERROR-FUG. 

* 

VALUE-CHECK. 

IF  DEBUG  -  TES  DISPLAY  "VALUE  CHECK  ENTERED'. 

IF  ERROR-FLAG  -  NONO 

MOVE  NONO  TO  NEV-BUFFER 
PERFORM  READ-INPUT. 

IF  (NO-INPOT-FLAG  =  TES  OR  ERROR-FUG  =  TES) 
DISPLAY  "ENTER  THE  NUMBER  OF  ITEMS” 

PERFORM  READ-DATA. 

IF  (PART-NUMBSR(l)  -  OR  PART-NUMBER ( 1 )  »=  "-") 

PUNCT? 

*  THIS  CODE  ASSUMES  3  DIGIT  PART  QUANTITIES 

MOVE  PART-NUMBER ( 1 )  TO  QUANTITT-S ICN 
MOVE  PART-NUMBER(H)  TO  PART-NUMBER( 1 ) 

MOVE  PART-NUMBER(S)  TO  PART-NUMBER(2 ) 

MOVE  PABT-NUMBERU)  TO  PABT-N0MBER(3) 

SET  AACTUAL  DOWN  BT  1. 

IF  AACTUAL  >  3  SET  AACTUAL  TO  3 
IF  AACTUAL  <  1 

SET  AACTUAL  TO  1 

MOVE  "A"  TO  PART-NUMBER(l). 

MOVE  NONO  TO  ERROR-FLAG. 

PERFORM  DIGIT-CHECK 

VARYING  11  FROM  1  BT  1 

UNTIL  (II  >  AACTUAL  OR  ERROR-FLAG  =  TES). 

IF  ERROR-FLAG  «  NONO 

PERFORM  RIGHT-JUSTIFT-0-FILl 
MOTE  DIGIT-3  TO  QUANTITY 
MOVE  NONO  TO  REPEAT-FLAG 
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550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 
566 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 
601 
662 

603 

604 


ELSE 

DISPLAT  INTI!  NUMBERS  ONLT  . 


BIGIT-JU&TIFT -0-FILL. 

MOVE  PART-NUMBER(AACTUAL)  TO  PABT-NUMBER(3) . 
IP  AACTUAL  -  2 

MOVE  PAHT-NUMBER  1)  TO  PART-NUMBER (2 ) 
MOVE  ”0"  TO  PART-NUMBER ( 1 ) 

ELSE 

IP  AACTUAL  ■  1 

MOVE  “0"  TO  PART-NUMBER (2) 

MOVE  "0”  TO  PABT-NUMBER (1 ). 


TRANS ACTION -PROCESS OB. 

IP  DEBUG  -  TES 

DISPLAT  "TRANSACTION  PBOCESSOR  ENTERED'' 

DISPLAT  COMMAND. 

MOVE  "S"  TO  COM-PUNCTION . 

MOVE  SPACES  TO  MXSSAGE-BUPPEB . 

SET  MESSAGE-LENGTH  TO  BIGHTT. 

IE  SEMOTE-COMMAND  -  TES 

FXBPOBM  SIND-OUT -COMMAND 

ELSE 

PEBPOBM  TRANSACTION-PBOC1SSOB1 . 

• 

SXND-OUT— COMMAND . 

MOVE  B1MOTE-ADDBESS  TO  SOURCE-DESTINATION. 

MOVE  "C"  TO  MESSAGE-CLASS. 

MOVE  TES  TO  UST-OP-MISSAGE. 

MOVE  COMMAND  TO  MESSAGE-DATA. 

MOVE  TES  TO  WAIT-FOB-ANSWER. 

MOVE  NONO  TO  REMOTE-COMMAND. 

PEBPOBM  COMMUNICATE. 

*  A  MESSAGE  ASKING  IP  WE  SHOULD  WAIT  FOB  RESULTS  WOULD  BE  NICE 

DISPLAT  "TOUR  REQUEST  HAS  BEEN  SENT.  WAIT  FOB  RESULTS" 

* 

TRANSACT  ION-PROCESS  OBI . 

MOTE  P DPI 1-CODE  TO  SOUBCE-DSSTINATION . 

MOVE  "A"  TO  MESSAGE-CLASS. 

MOVE  TES  TO  LAST-OP-MESS AGE . 

MOVE  COMMAND  TO  MESSAGE-DATA. 

MOVE  NONO  TO  EBB0R1-PLAG . 

MOVE  TES  TO  TRANS-PLAC. 

IP  ACTION  -  "C" 

PERFORM  DO-COMMAND 
ELS  E 

PERFORM  FIND-PART 
IP  EBROR1-PLAG  *  NONO 
PERFORM  EXECUTE-TRANSACTION 
ELSE 

CLOSE  DATA-PILE1 

MOVE  PABTNO  TO  IIROR-PRINT 

IP  LOCAL-PUG  -  TES 
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605 

60S 

607 

60S 

609 

610 
611 
612 

613 

614 

615 

616 

617 

618 

619 

620 
***• 

621 

622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 


DISPLAT  ERROR-LINE 
XLSX 

PERFORM  SETUP-TO-DISPLAT 
MOVE  ERROR -LINE  TO  MESSAGE-DATA 
PERFORM  COMMUNICATE. 

* 

SETUP-TO-DISPLAT. 

MOVE  RETURN-ADDRESS  TO  SOURCE-DEST INATION . 

MOVE  "D"  TO  MESSAGE-CLASS. 

MOVE  TES  TO  LAST-OF-MESSASE. 

MOVE  SPACES  TO  MXSSAGX-DATA. 

• 

XXXCUTI -TRANSACTION . 

IF  ACTION  NOT  -  "l" 

PERFORM  PIOCESS-PART. 

IF  (TRANS-FLAG  -  TBS  AND  ACTION  NOT  m  L  ) 

PUNCT7 

*  SEND  OUT  TEX  AUDIT  TRAIL 
PERFORM  COMMUNICATE. 

IF  TRANS-FLAG  -  TES 

PERFORM  PRINT-LINE-TO-DATA-BASX 

IF  LOCAL-FUG  «  TES 

DISPLAT  HEADING-LINE 

DISPLAT  PRINT-LINE 

ELSE 

PERFORM  SETUP-TO-DISPLAT 

MOVE  NONO  TO  LAST-OF-MSSSAGE 

MOVE  HEADING-LINE  TO  MESSAGE-DATA 

PERFORM  COMMUNICATE 

PERFORM  SETUP-TO-DISPLAT 

MOVE  PRINT-LINE  TO  MESSAGE-DATA 

PERFORM  COMMUNICATE 

XLSX 

MOVE  SXNTRT  TO  ENTRT-ERROR 
IF  LOCAL-FLAG  -  TES 
DISPLAT  INTERNAL-ERROR-ENTRT 
ELSE 

PERFORM  SETUP-TO-DISPUT 

MOVE  INTERNAL-ERROR-ENTRT  TO  MESSAGE-DATA 

PERFORM  COMMUNICATE. 

CLOSE  DATA-FILE1. 

* 

FIND-PART. 

OPEN  1-0  DATA-FILE1 . 

MOVE  PART NO  TO  PRTNO. 

START  DATA-FILX1  EXT  EQUAL  PRTNO 

INVALID  XET  MOVE  TES  TO  KRROR1-FLAG . 

READ  DATA-FILE1  INVALID  XET  MOVE  TES  TO  XBROR1-FLAG. 
PERFORM  MOVE-TO-PR I  NT-LINE. 

* 

MOVE-TO-PR I NT-LINE. 

MOVE  PRTNO  TO  PAHT-NUM-OUT. 

MOTE  PT-NM  TO  PART -NAME -OUT. 

MOVE  STOCE1  TO  STOCE-OUT. 

MOVE  ON-ORDIR1  TO  ON-ORDSR-OUT. 
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659 

660 
661 
662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 
681 
682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 

713 


MOTE  THRESHOLD1  TO  THRESHOLD-OUT. 

MOTE  ORDER-SIZE1  TO  ORDER-SIZE-OUT. 

* 

PROCESS -FAST. 

IF  DEBUG  -  TES  DISPLAT  "PROCESS  PART  ENTERED". 
IF  ESNTRT  =  "S 

MOTE  STOCK-OUT  TO  TEMP 
PERFORM  PROCESS-TEMP 
MOTE  TEMP  TO  STOCK-OUT 

ELSE 

IF  ESNTRT  -  "T" 

MOVE  THRESHOLD-OUT  TO  TEMP 
PERFORM  PROCESS-TEMP 
MOTE  TEMP  TO  THRESHOLD-OUT 

ELSE 

IF  ESNTRT  -  "0" 

MOTE  ON-OBDER-OUT  TO  TEMP 
PERTORM  PROCESS -TEMP 
MOVE  TEMP  TO  ON-ORDER-OUT 

ELSE 

IF  ESNTRT  -  "Z" 

MOVE  ORDER-SIZE-OUT  TO  TEMP 
PERFORM  PROCESS-TEMP 
MOVE  TEMP  TO  ORDER-SIZE-OUT 

ELSE 

MOTE  NONO  TO  TRANS -FLAG. 

» 

PROCESS -TEMP. 

IF  ACTION  =  "I" 

MOVE  0  TO  TEMP. 

IF  QUANTITY-SIGN  »  "+ 

ADD  QUANTITY  TO  TEMP 
ON  SIZE  ERROR 

MOVE  999  TO  TEMP 
IF  LOCAL-FLAG  «  IES 
DISPLAT  TALUE-TOO-BIG 
ELSE 

PERFORM  SETUP-TO-DI SPLAT 
MOVE  TALUE-TOO-BIG  TO  MESSAGE-DATA 
MOVE  NONO  TO  LAST-OF-MESSAGE 
PERFORM  COMMUNICATE 

ELSE 

IF  QUANTITY  >  TEMP 
MOVE  0  TO  TEMP 

ELSE 

SUBTRACT  QUANTITY  FROM  TEMP. 

! 

PHINT-LINE-TO-DATA-BASE. 

MOTE  STOCK-OUT  TO  STOCK1. 

MOVE  THRESHOLD-OUT  TO  THEESHOLD1. 

MOTE  ON-ORDER-OUT  TO  ON-ORDER1 . 

MOTE  ORDEB-SIZE-OUT  TO  ORDEB-SIZE1. 

REWRITE  DATA-BASE! 

INVALID. 1ST  MOTE  TES  TO  DUMMY-FLAG. 
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DO-COMMAND. 

IF  DEBUG  -  TBS  DISPLAT  "DO  COM 
II  EINTBT  *  "L" 

PEBIORM  LIST-PAHTS 

ELSE 

II  LOCAL-TLAG  NOT  -  TES 

PEBIOEM  SETUP-TO-DISPLAT 
MOTE  "REMOTE  COMMAND  ERROR 
PERFORM  COMMUNICATE 

ELSE 

PERFORM  LOCAL-COMMAND. 


DO  COMMAND  ENTERED 


TO  MESSAGE-DATA 


LOCAL-COMMAND. 

IF  EENTRT  -  "D" 

PERFORM  DELETE-PART 

ELSE 

IF  EENTRT  -  "A" 

PERFORM  ADD-PART 

ELSE 

IF  EENTRT  -  "l" 

PERFORM  INIT 

ELSE 

IF  EENTRT  *  "E" 

PERFORM  TERMINATE-RUN 

ELSE 

MOTE  COMMAND  TO  COMMAND-ERROR 
DISPLAT  INTERNAL-ERROR-COMMAND. 

* 

TERMINATE-RUN. 

PERFORM  COMMUNICATE. 

DISPLAT  "END  OF  DAT  -  SATE  THE  DATA-BASE". 

* 

INIT. 

PERFORM  COMMUNICATE. 

OPEN  INPUT  DATA-FILE1 . 

READ  DATA-FILE1  NEXT  AT  END  MOTE  NONO  TO  M-D-R-F. 
CLOSE  DATA-FILE1 . 

DISPLAT  "INITIALIZE  THE  DATA  BASE”. 

> 

LIST-PARTS. 

IF  LOCAL-FLAG  ■=  TES 

DISPLAT  HEADING-LINE 

ELSE 

PERFORM  SETUP-TO-DISPLAT 
MOTS  NONO  TO  LAST-OF-MESSAGE 
MOTE  HEADING-LINE  TO  MESSAGE-DATA 
PERFORM  COMMUNICATE. 

OPEN  INPUT  DATA-FILE1. 

MOTE  TES  TO  M-D-R-F. 

PERFORM  LST-PRTS  UNTIL  M-D-R-F  -  NONO. 

CLOSE  DATA-FILE1 . 

IF  LOCAL-FLAG  NOT  «  TES 

PERFORM  SETUP-TO-DISPLAT 
PERFORM  COMMUNICATE. 
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769 

770 

771 

772 

773 

774 

775 

776 

777 

778 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 

800 
801 
802 

803 

804 

805 

806 

807 

808 

809 

810 
811 
812 

813 

814 

815 

816 

817 

818 

819 

820 
821 
822 
823 


LST-PBTS . 

BEAD  DATA-PILE1  NEXT  AT  END  MOTE  NONO  TO  M-D-B-P. 
IP  M-D-B-P  NOT  *  NONO 
PEBPOBM  PBINT-A-LINE1. 

* 

PBINT-A-LINE1. 

PEBPOBM  MOVE-TO-PB I  NT-LINE. 

IP  LOCAL-PLAG  «  TES 
DISPLAY  PSINT-LINE 
ELSE 

PERPOBM  SETUP-TO-DISPLAT 
MOVE  NONO  TO  LAST -OP-MESSAGE 
MOVE  PBINT-LINE  TO  MESSAGE-DATA 
PERPOBM  COMMUNICATE. 

* 

PBINT-A-LINI . 

IP  PBTNO  NOT  «  " 

PERPOBM  MOVE-TO-PBINT-LINX 
DISPLAY  PBINT-LINE. 

* 

DELETE-PABT. 

PEBPOBM  PIND-PABT. 

IP  EBBOR1-PLAG  *  NONO 

PEBPOBM  DELSTE-BECOBD 

ELSE 

MOTE  PABTNO  TO  EBBOB-PBINT 
CLOSE  DATA-PILI1 
DISPLAY  SBBOB-LINE. 

* 

DELETE-RECORD. 

DELETE  DATA -PI  LEI ! 

INVALID  EET  DISPLAY  "INTERNAL  SBBOB  DELETE" 
CLOSE  DATA-PILE1 
STOP  BUN. 

PEBPORM  COMMUNICATE. 

MOTE  PABTNO  TO  DELETE-PEINT. 

CLOSE  DATA-PILE1. 

DISPLAY  DELETE-LINE. 

• 

ADD-PART . 

*  IN  THIS  SECTION 

*  — 2Zl~*~T  DATA-IS  ALBXADY-PBSSXNT-PLAG  . 

PEBPOBM  COMMUNICATE. 

PEBPORM  SET-BUPP. 

OPEN  1-0  DATA-PILS1. 

MOTE  NONO  TO  D-I-P-P. 

MITE  DATA-BASE  PBOM  DATA-BUPPEBJ 
INVALID  EEY  MOTE  YES  TO  D-I-P-P. 

IP  DEBUG  •  TES  DISPLAY  MID  ADD  PART  "  D-I-P-P. 

PERPOBM  TALUE-IS-PBESENT 

ELSE 

MOTE  PABTNO  TO  ADD-PBINT 
DISPLAY  ADD-LINE. 

CLOSE  DATA-PILE1 . 
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►  ! 
) 
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4 

! 

1 

1 

J 

i 

•  i 

824 

825 

826 

827 

828 

829 

830 

831 

832 

833 

834 

835 

836 

QRIl 

* 

TALUE-IS-PRESENT. 

MOVE  PARTNO  TO  DATA-PRES-PBINT . 

BISPLAT  PRESENT-LINE. 

* 

SET-BUFF. 

MOTE  PARTNO  TO  PART-NUMB. 

MOVE  PART-NAME  TO  PRT-NME. 

MOVE  "000"  TO  STCI. 

MOVE  *000“  TO  ON-ORDB. 

MOVE  "000"  TO  THRESHLB. 

MOVE  "®00"  TO  ORDR-SIZE. 

* 

1  i 

CO  r 

838 

READ-INPUT. 

i 

839 

IF  NEV-BUFF2R  «  TSS 

840 

MOVE  TES  TO  BUFFER -EMPTT 

*  J 

841 

PERFORM  GET-NEW-BUFFIR  UNTIL  BUFFER-RMPTT  »  NONO 

} 

842 

IF  DSBUC  -  TES 

843 

DISPLAT  COMMAND-LINE. 

J 

844 

MOVE  BUFFEB-EMPTI  TO  NO-INPUT-FLAG. 

• 

845 

IF  BUFFER -EMPTT  -  NONO 

' 

846 

PERFORM  DILETE-FIRST-F1ELD. 

1 

847 

* 

848 

GET-NEN-BUFFER. 

849 

IF  DEBUG  «  TES  DISPLAT  ’TEST  GET  NEW  BUFFER’. 

? 

850 

MOVE  SPACES  TO  COMMAND-LINE. 

851 

ACCEPT  COMMAND-LINE. 

l 

852 

INSPECT  COMMAND-LINE  REPLACING  ALL  BT  V. 

f.>i 

853 

SET  TPTR  TO  ONE. 

854 

PERFORM  CLEANUP-LINE. 

855 

II  BUFFER-EMPTT  •  TES 

« 

856 

DISPLAT  "RE-ENTER  LAST  LINE.". 

l 

857 

* 

'i 

858 

DELSTE-FIRST-FIXLD. 

i 

859 

IF  DEBUG  -  TES  DISPLAT  "DELETE  FIRST  FIELD  ENTERED  . 

.  *' 

860 

MOVE  SPACES  TO  OUT -COMMAND. 

861 

PERFORM  MOVE-FIRST-FIELD 

862 

VARTING  PTR  FROM  1  BT  1 

863 

UNTIL  ( C OMMA ND-BUFFSR ( PTR )  *  /  OR  PTR  -  30) 

864 

IF  COMMAND-BUFFER (PTR)  =  ’/’ 

865 

SET  13  TO  PTR 

866 

MOVE  ’  ’  TO  COMMAND-OUT (13) 

t 

867 

SET  AACTUAL  TO  PTR 

868 

SET  AACTUAL  BONN  BT  1 

869 

ELSE 

870 

SET  AACTUAL  TO  PTR 

871 

PERFORM  DO-NOTHING 

872 

PARTING  PTR  FROM  AACTUAL  BT  1 

873 

UNTIL  COMMAND-BUFFER(PTR)  «  ’/  . 

f 

874 

SIT  PTR  UP  BT  1. 

875 

SET  TPTR  TO  PTR. 

876 

PERFORM  CLEANUP-LINE. 

877 

• 

878 

CLEANUP-LINE. 

i 
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879 

SIT  TEM-PTB  TO  ONI. 

1 

880 

PEBPORM  REMOVE -BLANKS -AND-PACE 

1 

881 

PARTING  PTB  PBOM  TPTB  BT  1  UNTIL  PTB  >  70. 

882 

P EH POEM  BLANK-REST-OP-LINE 

883 

VARYING  PTR  PBOM  TIM-PTB  BT  1  UNTIL  PTB  >  70. 

i 

884 

IP  TIM-PTB  -  ONE 

\ 

885 

MOVE  TES  TO  BUPPIB-EMPTT 

i 

886 

ELSE 

887 

MOVE  NONO  TO  BUPPEfi-IMPTT 

\ 

888 

SET  TIM-PTB  DOWN  BT  1 

889 

SIT  BUPPEB-LENGTH  TO  TIM-PTB 

890 

IP  COMMAND-BUPPIRf TIM-PTB)  NOT  -  "/" 

891 

SET  TIM-PTB  UP  BT  1 

: 

892 

SIT  BUPPIB-LENGTI  TO  TIM-PTB 

893 

MOVI  "/“  TO  COMMAND-BUPPER (TEM-PTR ) . 

i 

894 

* 

( 

895 

RIMOVE-BLANKS-AND-PACf . 

* 

696 

IP  COMMAND-BUPPIB(PTB)  not  *  " 

897 

MOVE  COMMAND-BUPPIB(PTB)  TO  COMMAND-BUIPIB (TIM-PTB) 

898 

SET  TIM-PTB  UP  BT  1. 

899 

* 

900 

MOVI-f IBST-PIILD. 

f 

901 

SIT  13  TO  PTB. 

902 

MOVE  COMMAND-BUPPER (PTB)  TO  COMMAND-OUT ( 13 ) . 

\ 

903 

* 

904 

BLANK -BIST-OT-LINI. 

905 

MOVI  "  TO  COMMAND-BUPPIB(PTB). 

906 

* 

4 

907 

DO-NOTHING. 

908 

SET  PTB  TO  PTB. 

i 

909 

m 

* 

911 

RECOGNIZE. 

912 

MOVE  TES  TO  SAME-PLAG. 

913 

PEBPORM  COMPARE 

914 

VARTING  12  PROM  1  BT  1 

■ 

915 

UNTIL  (SAME-PLAG  -  NONO  OR  12  >  AACTUAL  OB  12  >  MAXB 

*" 

916 

* 

917 

COMPARE. 

918 

SET  11  TO  12. 

919 

IP  PART-NUMBER ( 11 )  NOT  «  STRINC2(I2) 

920 

MOVE  NONO  TO  SAME-PLAG. 

921 

* 

vcc 

923 

COMMAND-PBOCISSOB. 

924 

IP  DEBUG  -  TES  DISPLAT  COMMAND  PROCESSOR  ENTERED  . 

925 

MOVE  "  "  TO  PARTNO. 

926 

MOVE  “  *  TO- ACTION. 

927 

MOVE  "  '  TO  EENTRT . 

928 

MOVI  ♦  TO  QUANTITT-SIGN . 

929 

MOVE  '000”  TO  QUANT  ITT. 

930 

MOVI  "  "TO  PART-NAME. 

931 

*  THE  POLLOVINC  IS  A  CASE  STATEMENT  ON  THE  COMMAND  NAMES. 

932 

MOVE  LIST  TO  STBINGB . 

933 

PIRPORM  RECOGNIZE. 
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934 

935 

936 

937 
936 
939 
946 

941 

942 

943 

944 

945 

946 

947 
946 

949 

950 

951 

952 

953 

954 

955 

956 

957 
956 

959 

960 

961 

962 

963 

964 

965 

966 

967 

968 

969 

970 

971 

972 

973 

974 

975 

976 

977 

978 

979 
960 

**** 

981 

982 

983 

984 

985 
966 
987 


IT  SAMI-TLAG  »  TBS 

TBBTOBM  LIST-PBOCBSS 

BOSK 

MOTE  STOP “IT  TO  STBINGB 
PIRTOBM  BICOON  I  ZB 
IT  SAME-TUG  -  TBS 

MOTB  TBS  TO  STOP-TUG 

ELSE 

MOTE  ADDIT  TO  STBINGB 
PBXTOBM  BBCOGNIZB 
IT  SAMS-TUG  -  TBS 

PIBTOBM  ADD-PROCESS 

ELSE 

MOTB  DELETI-IT  TO  STBINGB 
PIBTOBM  BBCOGNIZB 
IT  SAME-TUG  ■  TBS 

TBBTOBM  BB1ITE-PB0CI5S 

ELSE 

TBBTOBM  CHECI-OTHIBS . 

* 

CHECI-OTHIBS . 

MOTE  HELP  TO  STBINGB. 

TBBTOBM  BICOGNIZE. 

IT  SAME-T1AC  *  TES 

TBBTOBM  HELP-PBOCBSS 

ELSE 

MOTE  BEMOTB-NAMB  TO  STBINGB 
PEBTOBM  BBCOGNIZB 
IT  SAMB-TLAG  •  TES 

PIBTOBM  BBMOTB-PBOCBSS 

ELSE 

MOTB  SBND-IT  TO  STBINGB 
TBBTOBM  BBCOGNIZB 
IT  SAME-T1AG  -  TES 

TBBTOBM  SSNS-PHOCBSS 

ELSE 

TBBTOBM  I LLIG AL-COMMAN D . 

* 

ILLEGAL-COMMAND . 

DISPLAT  "ILLEGAL  COMMAND  -  BNTEB  HELP  TOB  HBLP  . 

* 

LIST-PBOCBSS. 

MOTE  "C"  TO  ACTION. 

MOTE  "l"  TO  BINTBT. 

MOTB  NONO  TO  NIV-BUTTEB. 

PEBTOBM  BEAD-INPOT. 

IP  < NO-INPUT-TUG  ■  NONO  AND  PABT-NDMBBB  ( 1 )  -  "A"  ) 

PONCT? 

MOTE  A  TO  QOANTITT-SIGN. 

TBBTOBM  TBANSACTION-PBOCBSSOB. 

* 

ADD-PB0C8SS . 

MOTE  "c"  TO  ACTION. 

MOTB  "A"  TO  IBNTBT. 

MOTB  TES  TO  BEPEAT-TLAC. 
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988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 
1000 
1001 
1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 
1011 
1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 
1021 
1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 


MOT I  NONO  TO  EBBOB-TLAG. 

PEBTOBM  GET-PABT-NUMBEB  UNTIL  BEPEAT-TLAG  «  NONO. 

MOTE  TES  TO  BEPEAT-TLAG. 

MOTE  NONO  TO  EBBOB-TLAG . 

PSBTOBM  GIT-PABT-NAME  UNTIL  BEPXAT-FLAG  -  NONO. 

PEBPOBM  TBANSACTION-PBOCXSSOB. 

IT  TBANS-TLAC  -  NONO 

DISPLAY  "DATA  BASE  TULL.  PAST  NOT  ADDED.'. 

* 

CET-P ABT-NUMBEB . 

IT  XBBOB-TLAG  -  NONO 

MOTE  NONO  TO  NEV-BUTTXB. 

PEBPOBM  BEAD-INPUT. 

IT  (NO-INPUT-TLAG  «  TES  OB  XBBOB-TLAG  ~  TES) 

DISPLAY  "ENTXB  PAST  NUMBXE' 

PEBPOBM  BEAD-DATA. 

MOTE  NONO  TO  EBBOB-TLAG. 

PSBTOBM  DIGIT2-CHECE 

TABYING  II  TBOM  1  BY  1 

UNTIL  (II  >  AACTUAL  OB  XBBOB-TLAG  *  YES). 

IT  XBBOB-TLAG  -  NONO 

MOTE  PABT-NUM  TO  PABTNO 
MOTE  NONO  TO  BEPXAT-PLAG 

ELSE 

MOTE  TES  TO  BEPEAT-TLAG 

DISPLAY  "PABT  NUMBEBS  CONTAIN  ONLY  DIGITS”. 

* 

DIGIT2-CHECE. 

IT  PABT-NUMBEB(Il)  IS  NOT  NUMEBIC 
MOTE  YES  TO  EBBOB-TLAG. 

• 

GET-PABT-NAME . 

IT  EBBOB-TLAG  *  NONO 

MOTE  NONO  TO  NXW-BUTTER 
PEBPOBM  HEAD-INPUT. 

IT  (NO-INPUT-TLAG  -  YES  OB  EBBOB-TLAG  «  YES ) 

DISPLAY  "ENTXB  PABT  NAME" 

PEBTOBM  BEAD-DATA. 

MOTE  PABT-STBING  TO  PABT-NAME. 

MOTE  NONO  TO  BEPEAT-TLAG. 

* 

DELETS-PBOCESS. 

MOTE  "C"  TO  ACTION. 

MOTE  D"  TO  EENTBY. 

MOTE  YES  TO  BEPEAT-TLAG. 

MOTE  NONO  TO  EBBOB-TLAG. 

PEBTOBM  CXT-PABT-NUMBEB  UNTIL  BEPEAT-TLAG  ■  NONO. 

PSBTOBM  TBANSACTION-PB OCXS SOB. 

) 

HELP-PBOCESS. 

DISPLAY  "SXPBBATOBS  ABE  EITHXB  COMMAS  OB  SLASES  (,  OB  /)" 
DISPLAY  " - ". 

DISPLAY  "  TBS  TOLLONING  COMMANDS  ABE  IMPIIMENTBD: " . 
DISPLAY  „  HELP  -  PBINTS  THIS  LISTING". 

DISPLAY  LIST  -  DISPLAYS  THE  DATA  BASE”. 
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HCI  26 


1643 

1644 

1045 

1046 

1047 

1048 

1049 
1056 
1051 
1652 

1053 

1054 

1055 

1056 

1057 

1058 

1059 
1066 
1061 
1662 
1663 

1064 

1065 

1066 

1067 

1068 
1069 
1670 

1071 

1072 

1073 

1074 
1675 
1076 

1677 

1678 

1679 
1086 
1081 
1682 
1683 

1084 

1085 

1086 

1087 

1088 
1089 
1096 

1091 

1092 
1693 
1094 
1695 

1096 

1097 


* 


DISPLAY 

DISPLAY 

DISPLAY 

DISPLAY 

DISPLAY 

DISPLAY 

DISPLAY 

DISPLAY 

DISPLAY 

DISPLAY 

DISPLAY 

DISPLAY 

DISPLAY 

DISPLAY 

DISPLAY 

DISPLAY 

DISPLAY 


"  STOP  -  TERMINATES  TBI  PROGRAM". 

"  DILATE, PA1T  NUMBER 

"  REMOTES  AM  ITEM  PROM  TBE  DATA  BASE". 

ADD/PABT  NUMBER/PART  NAME  -  . 

.  ADDS  AN  ITEM  TO  TBE  DATA  BASE". 

«  ALL  QUANTITIES  ABE  SET  TO  0". 

KEMOTE/DESTINATION/COMMAND  -  SEND  COMMAND  TO". 

'  DESTINATION  MACBINE  AND  AWAITS  BESPONSE". 

.  SIND/DESTINATION/MESSAGE  -  SEND  MESSAGE  TO 
DESTINATION  MACBINE". 


"TO  MODIPY  THE  QUANTITIES  POB  ANY  ITEM  ENTEB". 

PAST  NUMBEB/ACTION/ENTBT /SIGNED  QUANTITY". 
"WBEHE " . 

PAST  NUMBER  IS  A  STRING  OP  DIGITS". 

ACTION  IS  LIST.UPDATE  OR  INITIALIZE  TBE  ITEM". 

"  ENTRY  IS  STOCK ,ON  OBDER, THRESHOLD,  ORDEB  SIZE". 


REMOTE- PROCESS. 

MOYE  YES  TO  BEMOTE-COMMAND. 

MOTE  YES  TO  REPEAT-PLAG. 

MOTE  NONO  TO  EBBOB-PLAG. 

PERPORM  GET-DESY I  NATION  UNTIL  REPEAT-PUG  -  NONO. 

MOTE  NONO  TO  NEW-BUPPEB. 

PSBPOBM  BEAD-INPUT. 

IP  NO-INPUT-PLAG  *  YES 

DISPLAY  "ENTEB  PAST  NUMBER  OB  COMMAND  POB  REMOTE  COMMAND" 
MOTE  YES  TO  NEW-BUPPEB 
PERPORM  READ-INPUT. 

IP  PIRST-CBABACTEB  IS  NOT  ALPHABETIC 
PERFORM  PABT-NUMBSB-PROCESSOB 

ELSE 

MOTE  LIST  TO  5TBINGB 
PERFORM  RECOGNIZE 
IP  SAME-PLAG  -  YES 
PERPORM  LIST-PROCESS 
ELSE 

DISPLAY  “ILLEGAL  REMOTE  COMMAND". 

GET-DESTINATION. 

IP  ERROR-PLAG  «  NONO 

MOTE  NONO  TO  NEW-BUPPEB 
PERPORM  READ-INPUT. 

IP  (NO-INPUT-PLAG  -  YES  OR  ERBOR-PLAC  -  YES) 

DISPLAY  “ENTER  DESTINATION  MACHINE  CODE." 

PERPORM  BEAD-DATA. 

MOTE  NONO  TO  REPEAT-BLAG. 

MOTE  M6806  TO  STRINGB. 

PERPORM  RECOGNIZE. 

IP  SAME-PLAG  -  YES 

MOTE  M6800-CODE  TO  REMOTE-ADDRESS 

ELSE 

MOTE  PDPU  TO  STRINGB 
PERPORM  RECOGtfi;S. 

IP  SAME-PLAG  -  YES 
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BAGS  21 


1698 

1699 
1166 
1161 
1162 

1163 

1164 

1165 

1166 

1167 

1168 
1169 
1116 
1111 
1112 

1113 

1114 

1115 

1116 

1117 

1118 
1119 
1126 
1121 
1122 

1123 

1124 

1125 

1126 

1127 

1128 
1129 
1136 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 
1146 

1141 

1142 

1143 

1144 


MOVE  PDP11-CODE  TO  REMOTX-ADDHESS 

XLSX 

MOTE  INTEL  TO  STRINGS 
PERFORM  BXCOCNIZE 
IP  SAME-FLAG  -  TXS 

MOTE  INTEL-CODE  TO  REMOTE-ADDRESS 

ELSE 

MOTE  CS26  TO  STRINGB 
PEHPOBM  RECOGNIZE 
IP  SAME-PLAG  =  TES 

MOTE  CS-26-C0DE  TO  HEMOTS-ADDRESS 

ELSE 

PERPOBM  BAD-BEST-CODE. 

* 

BAD-DEST-CODE. 

DISPLAT  "ILLEGAL  DESTINATION  CODE." 

DISPLAY  "  USE  M6866,  PDP11,  INTEL,  OH  CS-26" 
MOTE  TES  TO  REPEAT-PLAG 
MOVE  TES  TO  EHHOB-PLAG . 

t 

SEND-FBOCESS. 

MOTE  TES  TO  REPEAT-PLAG. 

MOTE  NONO  TO  EBROB-PLAG. 

PERPOBM  GET-DESTINATION  UNTIL  BEPEAT-PLAG  *  NONO. 
DISPLAY  "ENTEH  TEXT  -  EMPTY  LINE  WILL  TERMINATE.". 

MOTE  TES  TO  BEPEAT-PLAG. 

PERFORM  SEND-TEXT  UNTIL  REPEAT-PLAG  *=  NONO. 

► 

SEND-TEXT. 

MOTE  SPACES  TO  MESSAGE-BUFFER. 

ACCEPT  MESSAGE-DATA. 

MOTE  TES  TO  EMPTY-LINE. 

PERFORM  CHECK-EMPTT-LINE 

TARTING  MES-INDEX  PROM  1  BT  1  UNTIL  MES-INDEX  >  76. 
MOTE  REMOTE-ADJ3BESS  TO  SOURCE-DESTINATION. 

MOTE  "D"  TO  MESSAGE-CLASS. 

MOTE  NONO  TO  LAST-OP-MESSAGE. 

IP  EMPTI-LINE  =  TES 

MOTE  TES  TO  LAST-OP-MESS  AGE 
MOVE  NONO  TO  REPEAT-FLAG. 

SET  MESSAGE-LENGTB  TO  EIGHTY. 

MOTE  "S"  TO  COM-FUNCTION. 

PEHFORM  COMMUNICATE. 

CHECK-EMPTT-LINE. 

IP  MESSAGE-DATA1 (MES-INDEX)  NOT  -  " 

MOVE  NONO  TO  EMPTT-LINE. 
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ACCEPT 

AUTHOR 

CF 

ACCESS 

AUTO 

CHANNEL2 

ACCESS ABILITY 

BACKWARD 

CHARACTER 

ACTUAL 

BEEP 

CHARACTERS 

ADD 

BEFORE 

CINT 

ADDRESS 

BEGINNING 

CIOC 

ADVANCING 

BELL 

CLOCK-UNITS 

AFTER 

BIT 

CLOSE 

ALL 

BLANK 

CMOD 

ALPHABETIC 

BLINK 

COBOL 

ALSO 

BLOCK 

CODE 

ALTER 

BOTTOM 

CODE-SET 

ALTERNATE 

BREAK- KEY 

COLLATING 

AND 

BY 

COLUMN 

APPROXIMATE 

C-  300 

COMMA 

ARE 

CALL 

COMMUNICATION 

AREA 

CAM 

COMP 

AREAS 

CANCEL 

COMP-1 

ASCENDING 

CCNL 

COMP- 2 

ASCII 

CD 

COMP- 3 

ASSIGN 

CDAC 

COMPRESSION 

AT 

CD  IS 

COMPUTATIONAL 

301 


COMPUTATIONAL- 1 


DATE -COM PI  LED 


DISABLE 


COMPUTATIONAL- 2 

DATE -WRITTEN 

DISK 

COMPUTATIONAL- 3 

DAY 

DISPLAY 

COMPUTE 

DE 

DIVIDE 

CONFIGURATION 

DEBUG- CONTENTS 

DIVISION 

CONSOLE 

DEBUG- ITEM 

DOWN 

CONTAINS 

DEBUG- LINE 

DUPLICATES 

CONTIGUOUS 

DEBUG -NAME 

DYNAMIC 

CONTROL 

DEBUG -SUB- I 

EBCDIC 

CONTROLS 

DEBUG -SUB- 2 

ECLIPSE 

COPY 

DEBUG-SUB-3 

EG I  ELSE 

CORR 

DEBUG -SUB1 

EMI 

CORRESPONDING 

DEBUG -SUB 2 

ENABLE 

COUNT 

DEBUG- SUB 3 

END 

CR 

DEBUGGING 

END -OF -PAGE 

CRCV 

DECIMAL-POINT 

ENDING 

CREATE 

DECLARATIVES 

ENTER 

CS-20 

DEFINE 

ENVIRONMENT 

CS-40 

DELETE 

EQUAL 

CS-60 

DELIMITED 

EQUALS 

CSND 

DELIMITER 

ERROR 

CURRENCY 

DEPENDING 

ESI 

DATA 

DESCENDING 

EVEN 

DAT  A- SENSITIVE 

DESTINATION 

EVERY 

DATE 

DETAIL 

EXCEPTION 

302 


EXCLUDE 


GENERIC 


INITIATE 


EXCLUSIVE 

GIVING 

INPUT 

EXHIBIT 

GLOBAL 

INPUT- OUTPUT 

EXPIRATION 

GO 

INSPECT 

EXPUNGE 

GREATER 

INSTALLATION 

EXTEND 

GROUP 

INTO 

FD 

HEADER 

INVALID 

FEEDBACK 

HEADING 

INVERTED 

FIELD 

HIERARCHICAL 

IS 

FIELDS 

HIGH 

JUST 

FILE 

HIGH- VALUE 

JUSTIFIED 

FILE- CONTROL 

HIGH-VALUES 

KEY 

FILE-ID 

1-0 

KEYBOARD 

PRE-LIMIT 

I -0- CONTROL 

KEYS 

El  LF-  LIMITS 

ID 

LABEL 

FILLER 

IDENTIFICATION 

LABELS 

FINAL 

IF 

LAST 

FIRST 

IMMEDIATE 

LEADING 

FIXED 

IN 

LEFT 

FOOTING 

INDEX 

LENGTH 

FOR 

INDEXED 

LESS 

FORWARD 

INDICATE 

LEVELS 

FROM 

INFOS 

LIBRARY 

GENERATE 

INITIAL 

LIMIT 

GENERATION 


INITIALIZATION 


UMITS 


LINAGE 


NATIVE 


OVERFLOW 


LINAGE-COUNTER 

NEGATIVE 

OWNER 

LINE 

NEXT 

PAD 

LINE- COUNTER 

NO 

PAGE 

LINES 

NODE 

PAGE -COUNTER 

LINK 

NOT 

PARITY 

LINKAGE 

NUMBER 

PARTIAL 

LOCAL 

NUMERIC 

PERFORM 

LOCK 

OBJECT-COUNTER 

PF 

LOGICAL 

OCCURANCE 

PH 

LOW- VALUE 

OCCURS 

PHYSICAL 

LOW -VALUES 

ODD 

PIC 

LRU 

OF 

PICTURE 

MANAGEMENT 

OFF 

PLUS 

MAXIMUM 

OFFSET 

POINTER 

MEMORY 

OH 

POSITION 

MERGE 

OMITTED 

POSITIVE 

MERIT 

ON 

PRINTER 

MESSAGE 

ONLY 

PRINTING 

MODE 

OPEN 

PROCEDURE 

MODULES 

OPTIONAL 

PROCEDURES 

MOVE 

OR 

PROCEED 

MULTIPLE 

ORGANIZATION 

PROCESSING 

MULTIPLY 

OUTPUT 

PROGRAM 

NAMED 

OV 

PROGRAM- ID 

304 


RESERVE 


SELECTED 


l 


• 

QUEUE 

RESERVE 

SELECTED 

1 

r  i 

QUOTE 

RESET 

SEND 

[  ! 
i 

QUOTES 

RETAIN 

SENTENCE 

k  J 

t.  : 

RANDOM 

RETRIEVE 

SEPARATE 

t  1 

5 

•  i 

RD 

RETURN 

SEQUENCE 

L  ' 

* 

i- 

r*  1 

' 

READ 

REVERSED 

SEQUENTIAL 

« 

i- 

READY 

REWIND 

SET 

i 

RECEIVE 

REWRITE 

SIGN 

' 

RECORD 

RF 

SIZE 

RECORDING 

RH 

SORT 

? 

RECORDS 

RIGHT 

SORT-MERGE 

REDEFINES 

ROOT 

SOURCE 

* 

► 

^  4 

REEL 

ROUNDED 

SOURCE-COMPUTER 

,  'i 

REFERENCES 

RUN 

SPACE 

* 

RELATIVE 

SAME 

SPACES 

\ 

RELEASE 

SAVE 

SPECIAL-NAMES 

fr  ’ 

REMAINDER 

SCREEN 

STANDARD 

REMARKS 

SD 

STANDARD- 1 

r 

REMOVAL 

SEARCH 

STANDARD- 2 

RENAMES 

SECTION 

STANDARD- 3 

f 

REPLACING 

SECURE 

START 

REPORT 

SECURITY 

STATIC 

' 

' 

REPORTING 

SEEK 

STATUS 

. 

i 

REPORTS 

SEGMENT- LIMIT 

STOP 

i  1 

RERUN 

SELECT 

STRING 

! 


3U5 


•  % 


SUB- INDEX 

TIMES 

VOLUMN 

SUB-QUEUE-1 

TO 

WAIT 

SUB-QUEUE-2 

TOP 

WHEN 

SUB-QUEUE-3 

TRACE 

WITH 

SUBTRACT 

TRAILER 

WORDS 

SUM 

TRAILING 

WORKING-STORAGE 

SUPPRESS 

TRUNCATE 

WRITE 

SWITCH 

TYPE 

XECS 

SYMBOLIC 

UNDEFINED 

XMOD 

SYNC 

UNDELETE 

XNMT 

SYNCHRONIZED 

UNIT 

XPND 

TABLE 

UNLOCK 

XTRN 

TALLY 

UNSTRING 

ZERO 

TALLYING 

UNTIL 

ZEROES 

TAPE 

UP 

ZEROS 

TEMPORARY 

UPON 

TEM INAGE 

USAGE 

TERMINAL 

USE 

TERMINATE 

USER 

TEXT 

USING 

THAN 

VALUE 

THEN 

VALUES 

THROUGH 

VARIABLE 

THRU 

VARYING 

TIME 

VERIFY 
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